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TSTIO — PRO/TSX-Plus terminal interrupt driver 
DLXOFF — Transmit XOFF character 
DLXON — Transmit XON character 

DLINT — DL terminal output interrupt entry point 
DLSTRT — Start output to a DL11 line 
NEDCHR — Get next character for output 
SETSPD — Set transmit/receive speed for a line 
GETD3S/SETDSS — Get/set data set status 
DZOINT, DZSTRT (Dummi es ) 

TSXPRO — Digital PR0-3xx specific routines 
Macros 
Data areas 

System control register 
Interrupt control values 
Video display control values 
Printer port control values 
Communications port control values 
Quad Serial Line Unit control values 
PROINI — General initialization for Pro 
INISLT — Set up information about option slots 
PRONOP — Disable PRO interrupts 
PROHAN — Initialize the PI handler 
PROLIN — See if line is a special PRO terminal 
GPRVEC — Get address of vector for PRO device 
GPRCSR — Get address of CSR for PRO device 
GPRSLT — Get Slot number for PRO device 

GETSLT — Determine which option slot has device controller 

Routines *## 
the console 

Start output to video screen 

Clock driven PI transmitter routine 

Start PI transmitter 

Video end of transfer interrupt 

Get next output character for console 

Check output character limit 

Video end of frame interrupt 
PIKIIR — Keyboard input interrupt 

KBDCHR — Process character received from keyboard 
PIKOIR — Output interrupt for keyboard 
PIHAN — Simulated PI handler 
**# Printer Port Control Routines *## 
PPINIT — Initialize the printer port 
PPTINT — Transmitter interrupt 
PPSTRT — Start output to printer port 
PPRINT — Receiver interrupt 

PPGDSS — Get data set status for printer port 
PPSBRK — Control break transmission 
PPSSPD — Set transmission speed for printer port 
##* Communications Port Control Routines *■■«■■«■ 
CPIIMIT — Communications port initialization 
CPCINT — Receiver/Transmitter interrupt routine 
CPIREC — Received character from comm port 
CPITR — Transmitter interrupt 
CPSTRT — Start output to communications port 
CPCLOK — Timer driven routine for communications port 
CPXOFF — Transmit XOFF to communications port 
CPXON — Transmit XON to communications port 



##* Console Control 

PIINIT — Initialize 

PISTRT - 

PIDRIV - 

PIGO 

PIVTIR - 

PINDCH - 

PIQUIT - 

PIVFIR - 
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I M 55- 1 CPODSS — Get communications port data set status 

Set data set status for communications port 

f 57- 1 CPSBRK — Control break transmission on communications port 

Set speed for communications port 
Serial Line Unit Routines ##* 
Initialize quad serial line unit 
Initialize a line connected to quad line unit 
Start output 

Interrupt from quad line unit 
Set speed for quad line port 

Control break transmission to quad line unit 
Get data set status for line 
Set data set status 

Convert line index into register addresses 
Get address and configuration info 
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000017 



TITLE TSXPRO 

ENABL LC 

ENABL AMA 

DSABL GBL 



— TSX-Plus PROxxx Routines 



Starting at V6. 40, this module includes relevant TSTIO routines, to 
reduce the size of PRO/TSX-Plus. Actual TSXPRO code starts at TSXPRO: 

Copyright <c) 1984, 1985, 1986, 1987, 1988. 
S&H Computer Systems, Inc. 
Nashville, Tennessee 37212 
U. S. A. 

Assembly parameters 

Set QPASM to 1 to include support for quad serial line unit. 
Set QPASM to to exclude quad line unit code. 



QPASM 
MAXPOC = 



1 
15. 



^Select quad port code 

;Max consecutive output chars to PI 
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. SBTTL TSTIO — PRO/TSX-Plus terminal interrupt driver 

. PSECT TSTIO 

. ENABL LC 

TSTIO contain the interrupt processing code for sending and receiving 
characters to DL11, DZ11, and DH11 lines. 

Global definitions 

. GLOBL TSTIO> DLINT> DZOINT, CDSTRT, CDSTOP, NEDSOT 

. GLOBL CDIRTN, CDIFLG, CDORTN, CDOFLG, NEDCDI, NEDCDO 

. GLOBL ININT, CDSSPD, LINRTS, TTRSAV, TTINPT 

. GLOBL CDCLOK, CDGDSS, CDSDSS, CDSBRK, SETSPD 

. GLOBL CDSTR2, CDSXON, CDSXOF, DLSTRT, DZSTRT 

. GLOBL SILFET, TRNSTR, NEDCLO, TIOVEC, GETDSS, SETDSS 

Global references 

.GLOBL *OITIM, *XCHAR 

. GLOBL KPAR6, LMXLN 

. GLOBL DHSSPD, VHSSPD, DHSBRK, VHSBRK 

. GLOBL LMXNUM 

. GLOBL LSW3, LSW5 

. GLOBL MXCSR, MXLNT 

. GLOBL MXTBUF, MXTCR, NEDCHR, PR7, PSW 

. GLOBL RLINE 

. GLOBL TBR, TRINT, TRRDY, TSR 

. GLOBL DHSTRT, DHSTOP> DLSBRK, DZSBRK, DZSSPD 

. GLOBL VHSTRT, DLCLOK, DLSSPD, *DHCDO 

. GLOBL DHXON, DHXOFF, VHXOIM, VHXOFF 

. GLOBL DZCLOK, DLGDSS, DZGDSS, DHGDSS, VHGDSS 

. GLOBL DLSDSS, DZSDSS, DHSDSS, VHSDSS 

. GLOBL LOUTIR, KPAR5 

. GLOBL LSW10 

. GLOBL *HISTP 

. GLOBL *SXOFF, LCDTYP 

. GLOBL *SXON 

. GLOBL VHSTOP, INTPRI 

. GLOBL DHCLOK, VHCLOK 
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■ PRO/TSX-Plus terminal interrupt driver 



Macro definitions: 

Disable interrupts 

. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BIC INTPRI,@#PSW 

. ENDM ENABL 



{Disable interrupts 



; Enable interrupts 



Call a routine in a system overlay 

. MACRO OCALL ENTADD 
•IF B, ENTADD 

.ERROR ; OCALL without entry address 



. ENDC 




CALL 


OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 



The TTMAP and TTMAPX macros are used to map kernel-mode par6 to the 

terminal character buffer area. The previous contents of par6 map 

register are pushed on the stack and may be restored by using the 

UNMAP or UNMAPX macros. 

Rl must contain the line index number of the line whose buffers 

are being accessed. 

The difference between the TTMAP-UNMAP macros and the TTMAPX -UNMAPX 

macros is that the X-versions are more efficient but may only be 

used from within interrupt service routines where we are guaranteed 

to be running on the system stack. 

The TTMAP and UNMAP versions of the macros must only be 

used in sections of code where the interrupts are disabled. 

. MACRO TTMAPX 

MOV LTTPAR<R1>, @#KPAR6 

. ENDM TTMAPX 



. MACRO UNMAPX 

. ENDM UNMAPX 

. MACRO TTMAP 

MOV @#KPAR6, MAPHLD 

MOV LTTPAR<R1),€#KPAR6 

. ENDM TTMAP 



i 
< 

« 

t 

i 

c 
i 

4 
€ 

4 
i 
4 
« 



. MACRO UNMAP 

MOV MAPHLD, €#KPAR6 

. ENDM UNMAP 
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12 000000 




13 
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i 14 000000 
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Address vectors used to transfer control to device specific routines 
based on the device type code (CDX*xxx). 

Note: the entries in these vectors must be arranged in the same order 
as the CDX*xxx values defined in TSGEN. 

Table of routines to call to initiate transmission to a line 



Inputs: 
Rl = Physical line index number. 



; Offset for absent DL, DZ, DH> DHV entries 
{Professional console 
i Prof essional communications port 
; Professional printer port 
; Prof essional quad serial line unit 

Table of routines used to perform actual hardware startup 
of output transmission. 



TSTIO: 






CDSTRT 


« . -10 






. WORD 


DORTS 




. WORD 


DORTS 




. WORD 


DORTS 




. WORD 


DORTS 



CDSTR2 = . -10 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 



; Of f set for absent DL> DZ> DH, DHV entries 
> Prof essional console 
; Prof essional communications port 
; Prof essional printer port 
; Prof essional quad serial line unit 



Table of routines to call to stop transmission to a line. 
(These routines are used if a ctrl-S is received) 

Inputs: 
Rl = Physical line index number. 



CDSTOP = . -10 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 



; Offset for absent DL, DZ, DH, DHV entries 
i Professional console 
i Prof essional communications port 
; Prof essional printer port 
i Prof essional quad serial line unit 



Table of routines called to stuff an XOFF (ctrl-S) into the output 
stream for a line. 

Inputs: 
Rl = Line index number 

CDSXOF = .-10 i Offset for absent DL, DZ, DH, DHV entries 

.WORD DLXOFF ; Prof essional console 

WORD DORTS > Prof essional communications port 

WORD DLXOFF ; Professional printer port 

.WORD DLXOFF > Professional quad serial line unit 

Table of routine called to stuff an XON (ctrl-Q) into the output 
stream for a line. 

Inputs: 
Rl = Line index number. 
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000040 
000042 
000044 
000046 



000050 
000052 
000054 
000056 



000060 
000062 
000064 
000066 



000070 
000072 
0C0074 
000076 



000100 
000102 
000104 
000106 



000030 ' 
000222 ' 
000120' 
000222 ' 
000222 ' 



000040' 
000120' 
000120' 
000120' 
000120' 



000050 ' 
000120' 
000120' 
000120' 
000120' 



000060' 
000120' 
000120' 
000120' 
000120' 



000070 ' 
000120' 
000120' 
000120' 
000120' 



CDSXON = . -10 

. WORD DLXON 

. WORD DORTS 

. WORD DLXON 

. WORD DLXON 



; Offset for absent DL, DZ, DH, DHV entries 
i Prof essional console 
; Prof essional communications port 
; Prof essional printer port 
; Prof essional quad serial line unit 



Table of routines to be called on a 0. 5 second basis to do line checking. 

Inputs: 
Rl = Physical line index number. 



CDCLOK ■ . -10 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 



; Of f set for absent DL, DZ> DH, DHV entries 
j Prof essional console 
i Prof essional communications port 
; Prof essional printer port 
; Prof essional quad serial line unit 



Table of routines to be called to get the data set status 

Inputs: 
Rl = Physical line index number. 

Outputs: 

Generic data set status flags (MS*xxx> 



RO 
CDGDSS 



= . -10 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 



i Of f set for absent DL, DZ, DH, DHV entries 
; Prof essional console 
; Prof essional communications port 
/Professional printer port 
Professional quad serial line unit 



Table of routines to be called to set data set status 

Inputs: 
RO = Data set control flags (MS*xxx) 
Rl = Physical line index number. 

CDSDSS ~ .-10 ; Offset for absent DL, DZ, DH, DHV entries 

.WORD DORTS .Professional console 

.WORD DORTS ; Prof essi onal communications port 

.WORD DORTS i Professional printer port 

.WORD DORTS ; Prof essional quad serial line unit 

Table of routines to be called to control break transmission 

Inputs: 
RO = Break control flag <MS$BRK> 
Rl = Physical line index number. 



CDSBRK = . -10 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 

. WORD DORTS 



i Offset for absent DL, DZ, DH, DHV entries 
; Prof essional console 
: Prof essional communications port 
i Prof essional printer port 
j Prof essional quad serial line unit 



Table of routines to be called to control transmission speed 
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000120' 


122 


000114 


000120' 


123 


000116 


000120' 
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000207 
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000000 
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000000 
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000000 
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000000 


148 


000150 


000000 
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000000 
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000000 
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000165 


010 
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000172 
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002 
020 

200 



Inputs: 
RO = Line 
Rl = Line 


speed code, 
index number. 


SPD = . -10 
. WORD 
. WORD 
. WORD 
. WORD 


id 
DORTS 
DORTS 
DORTS 
DORTS 



i Offset for absent DL, DZ, DH, DHV entries 
; Prof essional console 
; Prof essional communications port 
; Prof essional printer port 
/Professional quad serial line unit 



Dummy routine to do a simple return 
DORTS: RETURN 



Pointer vector to routines in TSTIOX module that is relocated over TSINIT. 



TIOVEC 

ININTP 

TTINPT 

SILFET 

TTRSAV 

TRNSTR 

NEDCP: 

CDORTN 

CDIRTN 

SNDFRE 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 






O 





-1 



; Signal end of vector 



Data areas 



MAPHLD 
NEDCDI 
NEDCDO 
NEDCLO 
NEDSOT 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 











; TEMP CELL USED BY TTMAP MACRO 

» Non-zero =-> Need clock driven input proc 

; Non-zero ==> Need clock driven output proc 

; Non-zero ==> Need CL output processing 

; Non-zero ==> Need output-low job scheduling 



Byte data 



CDIFLG: . BYTE 
CDOFLG: . BYTE 
; Table used 

004 MXLBIT: . BYTE 

040 



i Non-zero ==> Input char fork routine running 

'> Non-zero ==> Output char fork routine running 

to select b it-tui thin-word corresponding to a line 
1, 2, 4, 10, 20. 40, 100, 200 



. EVEN 
Ignore an interrupt 
LINRTS: RETURN 



j Ignore interrupt 



TSXPRO 
DLXOFF 
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. SBTTL DLXOFF — Transmit XOFF character 
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000174 052761 OOOOOOG 0000000 



000202 052761 OOOOOOG OOOOOOG 



000210 016100 OOOOOOG 
000214 004770 177770' 



000220 000207 



DLXOFF is called to transmit an XOFF (ctrl-S) character to stop 
transmission to us. 

Inputs: 
Rl = Line index number. 

DLXOFF: 

Set flag saying we have stopped the sender 

BIS #*HISTP J LSW10<R1): Set flag saying we have stopped sender 

Set flag to cause an XOFF character to be sent by the transmitter 
interrupt routine. 

BIS #*SXOFF, LSW10<Rl);Set flag saying to send XOFF 

Start the transmitter 

MOV LCDTYP(R1 >> RO ; Get device type code index 

CALL @CDSTRT<RO) ;Call routine to start the transmitter 

Finished 

RETURN 



TSXPRO 
DLXON 
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— Transmit XON character 
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000222 042761 OOOOOOG OOOOOOG 



. SBTTL DLXON — Transmit XON character 

DLXON is called to transmit an XON <ctrl-Q> character. 

Inputs: 
Rl = Line index number. 

DLXON: 

Clear flag that says XOFF has been sent 

BIC #*HISTP, LSW10<R1>; Clear flag that says XOFF has been sent 

Set flag to cause an XON character to be sent by the transmitter 
interrupt routine. 



000230 052761 OOOOOOG OOOOOOG 



000236 016100 OOOOOOG 
000242 004770 177770' 



000246 000207 



BIJ 



#*SXQN, LSW10<R1 >; Force transmission of XON 



Start the transmitter 

MOV LCDTYP(R1 >, RO i Get device type index number 

CALL @CDSTRT(RO) >Call routine to start the transmitter 

Finished 

RETURN 
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i 
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T5XPR0 
DLINT 
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. SBTTL DLINT 



DL terminal output interrupt entry point 



DLINT contains the DL device specific output interrupt service routine. 
The interrupt is vectored directly to an instruction sequence of the 
form 



JSR 
. WORD 



R4, @#DLINT 
line number 



000250 010046 



00025J 



000254 
000260 



000262 
000270 
000276 
000304 
000306 



000312 
000314 
000316 



000320 
000326 
000334 



011404 



004774 
103417 



052764 
042764 
032774 
001774 
110074 



012600 
012604 
000002 



042764 
042774 
000766 



Thus on entry to DLINT R4 has been saved on the stack and currently 
points to a word containing the line index number. 

DLINT: MOV RO, -(SP) ; Save registers <R4 already on stack) 

Obtain the interrupting physical line number. 

MOV (R4).R4 ; Get physical line index number 

Get next character to transmit 



OOOOOOG 



CALL @L0UTIR<R4) 
BCS DLCLR 



; Get next character for line 
; Br if no character available 



Transmit the character contained in RO. 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



1*: 





BIS 




BIC 




BIT 




BEG 




MOVB 


F 


inished. 



DLRTN: 



MOV 
MOV 
RTI 



#*XCHAR,LSW3<R4> 

#*OITIM, LSW5<R4) 

#TRRDY, ©TSR<R4) 

1* 

RO, @TBR(R4> 

Return from interrupt. 

<SP)+, RO 
<SP>+, R4 



; Set transmitter busy flag 

.Start timer to catch lost interrupts 

.Make sure transmitter is ready 

; Should never loop here 

» Transmit the character 



Disable transmit interrupts. 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



DLCLR: 



BIC #*XCHAR,LSW3(R4) 
BIC #TRINT, @TSR<R4) 
BR DLRTN 



; R4 was pushed by JSR instruction 



> Set not busy transmit flag 
.Disable transmit interrupt enabli 
; Return from interrupt 



SBTTL DLSTRT 



Start output to a DL11 line 



Start output to a DL11 line. 
Enable transmit interrupts. 
Rl = Physical line number 



000336 
000344 



052771 
000207 



OOOOOOG OOOOOOG DLSTRT: 



BIS 
RETURN 



#TRINT. @TSR<R1> 



; Enable transmit interrupt enable 
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I 

i 

< 

4 

i 

i 

i 

€ 
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NEDCHR — Get next character for output 



1 

2 

3 

4 

5 

6 000346 000177 177562 

7 

8 

9 
10 
11 

12 000352 000177 177544 
13 



. SBTTL NEDCHR — Get next character for output 

This is a dummy resident routine which calls the relocated 
NEDCHR routine in the TSTIOX module. 



NEDCHR : JMP 



©NEDCP 



;Call routine in TSTIOX 



This is a dummy resident routine which calls the relocated 
ININT routine in the TSTIOX module. 



ININT: JMP 



QININTP 



;Call routine in TSTIOX 



TSXPRO 
SETSPD 
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-- Set transmit/receive speed for a line 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



000356 010246 

000360 013746 0000000 



000364 016102 0000000 
000370 004772 000100' 



000374 012637 0000000 
000400 012602 
000402 000207 



. SBTTL SETSPD — Set transmit/receive speed for a line 

SETSPD is called to set the transmit/receive speed for a line. 

Inputs: 
RO = Speed code. 
Rl = Line index number of line being set. 



SETSPD: MOV 
MOV 



R2, -<SP) 

@#KPAR5, -(SP) i Save kpar 5 in case an overlay is calling us 



Call hardware dependent routine to set the speed 



MOV 
CALL 

Finished 

MOV 
MOV 
RETURN 



LCDTYP(R1 ), R2 > Get hardware device type code 
SCDSSPD<R2) ;Call routine to set the speed 



<SP)+, @#KPAR5 
<SP)+, R2 



4 
I 



TSXPRO — TSX-P 
GETDSS/5ETDSS - 



lus PROxxx Routi MACRO V05. 05 Friday 20-Jan-89 12:41 Page 10 
- Get/set data set status 



1 

2 








3 








4 








5 








6 








7 


000404 


005046 




8 


000406 


000402 




9 


000410 


012746 


000001 


10 








1 1 
X X 


000414 


010246 




12 


000416 


013746 


OOOOOOG 


13 








14 








15 








16 


000422 


016102 


0000000 


17 


000426 


005766 


000004 


18 


000432 


001003 




19 


000434 


004772 


000050 ' 


20 


000440 


000402 




21 


000442 


004772 


000060 ' 


22 








23 








24 








25 


000446 


012637 


OOOOOOG 


26 


000452 


012602 




27 


000454 


005726 




28 


000456 


000207 





. SBTTL GETDSS/SETDSS — Get/set data set status 

Inputs: Rl contains line index 

For set» options are in RO (for SCDSDSS routine) 
Outputs: For get/ options are returned in RO (by SCDGDSS routine) 



GETDSS: CLR 

BR 
SETDSS: MOV 

i 

DSSCOM: MOV 
MOV 



-(SP) 
DSSCOM 
#1. -(SP) 

R2, -(SP) 
@#KPAR5, -(SP) 



i Say uie are getting status 

; Br to common routine 

i Say we are setting data set status 



1*: 



i Save KPAR 5 in case overlay is calling us 

Call hardware dependent routine to get current data set status 

Get hardware device type code 

Get or set data set status? 

Br if set 

Get data set status (into RO) 

Br to exit 

Set data set status (from RO) 



MOV 


LCDTYP(R1),R2 


TST 


4(SP) 


BNE 


1* 


CALL 


@CDGDSS(R2) 


BR 


2$ 


CALL 


@CDSDSS(R2) 



Clean up and return 



>*: 



MOV 


(SP)+, @#KPAR5 


MOV 


(SP)+, R2 


TST 


(SP) + 


RETURN 





/Restore KPAR 5 mapping 

; Remove GET/SET flag from stack 
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DZOINT, DZSTRT (Dummies) 



1 
2 
3 
4 
5 
6 
7 

8 000460 012605 

9 000462 000002 
10 

11 

12 

13 000464 000207 

14 

15 

16 



. SBTTL DZOINT, DZSTRT (Dummies) 



TSINIT requires an entry for DZOINT for initializing mux line 
(including the Gual-SLU), so create a dummy DZ output interrupt 
routine to just throw DZ output interrupts (which will never 
happen anyway on the Pro) away. 



DZOINT: MOV 
RTI 



(SP)+,R5 



;Was pushed by JSR R5, @#DZOINT 
;Discard interrupt 



> TSEXC2 requires an entry point for DZSTRT. 

i 

DZSTRT: RETURN i Dummy routine 

i 

; End of modified and truncated TSTIO section. 



TSXPRO - 


— TSX- 


TSXPRO - 


— Digi 


1 




2 




3 


000000 


4 


000000 


5 


000000 


6 




7 




8 




9 




10 




11 




12 




13 




14 




15 




16 




17 




18 




19 




20 




21 




22 




23 




24 




25 




26 




27 




28 




29 




30 




31 
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. SBTTL TSXPRO — Digital PR0-3xx specific routines 

. CSECT TSXPRO 
TSXPRO: 
PROBAS: 

TSX-Plus interface routines for Digital PR0-3xx series 
personal computers. 

Global definitions 

. GLOBL TSXPRO 

. GLOBL PROSIZ, PROLIN, PROINI, PROHAN, PIHAN, PRONOP 

. GLOBL PIDRIV 

Global references 

. GLOBL FRKCQE, DOSCHD> CORUSR, LXCL 

. GLOBL LMXPRM, *XCHAR> LSW3, *OITIM, LSW5, PROSLT 

. GLOBL FORK, INTEN, TTINPT, RBERR, OVRRUIM, FRMERR, RCVPAR 

. GLOBL RSR, PSW, INTPRI, CDSTRT, CDGDSS, CDSDSS, *PHONE, ILSW2 

. GLOBL LCDTYP, CDXSPC, CDX*PP, MS*DTR, MS*CAR, MS*RNG 

. GLOBL PROBRK, *DEAD, PPTERM, LSTHL, CDX*PI, *HISTP 

. GLOBL INVEC, LOUTIR, S9600, CDSXOF, CDSXON 

. GLOBL KPAR5, KPAR6, VPAR5, VPAR6, PISRT, CDCLOK, VSWPSL 

. GLOBL RT*BAS, IOFIN, FP*PIO, LSW10, *SXON, *SXOFF 

. GLOBL MS*BRK, CDSERK, CDSSPD, VT100, ITRMTP, TTRSAV 

. GLOBL LP*SPD* LPSPAR, LP*ODD, LP*7BT, S4800 

. GLOBL RPRCSR, RPRVEC, DWTYPE, VIDCSR, CDX*QP 

. GLOBL SROMMR, SR3MMR, MMENBL, EMMAP, LMXNUM, LMXLN 

. GLOBL MXVEC, MXCSR, PROBUF 



€ 

< 
< 
4 
I 



TSXPRO 
Macros 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 
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. SBTTL Macros 

Macro to disable interrupts 

. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 

Macro to enable interrupts 

. MACRO ENABL 

BIC INTPRI,S#PSW 

. ENDM ENABL 



4 

( 
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1 
p 






3 






4 






5 


000000 




6 






7 






8 






9 


000000 


000000 


10 


000002 


000000 


11 


000004 


000000 


12 


000006 


000000 


13 


000010 


000000 


14 


000012 


000000 


15 


000014 


000000 


16 


000016 


000000 


17 


000020 


000000 


IS 


000022 


000000 


19 


000024 


000000 


20 


000026 


000000 


21 






22 






23 






24 


000030 


002156' 


25 


000032 


OOOOOOG 


26 


000034 


001740' 


27 


000036 


001172' 


28 


000040 


001254' 


29 






30 






31 






32 


000042 


000000 


33 






34 






35 






36 






37 


000044 


000000 


38 


000046 


000000 


39 


000050 


000000 


40 


000052 


000000 


41 


000054 


000000 


42 


000056 


177777 


43 


000060 


062550 


44 


000062 


000000 


45 


000064 


000000 


46 


000066 


000000 


47 


000070 


000000 


48 


0C0072 


000017 


49 






50 






51 






52 


000074 


001002 


53 


000076 


000050 


54 


000100 


010050 


55 


0C0102 


002002 


56 






57 







. SBTTL Data areas 
Vector of addresses used to move information between TSXPRO and PI handler. 



PROVEC: 



Addresses passed from the PI handler to TSXPRO 



PIINAD 

PIINWD 

PIXOCH 

PIXEOF 

PIXICH 

PIXIOI 

PIXIOQ 

*VDCSR 

REENAB 

PRIOO: 

VDFLAO: 

PIGOFL: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 














o 





Address of initialization code 

Number of words of initialization code 

Routine called to send a char to the video 

Routine called for end-of-frame interrupts 

Routine to process keyboard input interrupts 

Routine to process keyboard output interrupts 

Routine to process an I/O queue request 

Address of video CSR address 

Pointer to REENAB cell 

Pointer to PRIOO cell 

Pointer to VDFLAG cell 

Pointer to PIGOFL cell <1==>PI run, 0==>stop) 



Addresses passed from TSXPRO to the PI handler 



. WORD 


KBDCHR 


. WORD 


FORK 


. WORD 


PINDCH 


. WORD 


GPRCSR 


. WORD 


GETSLT 



End of address vector 
. WORD 



Routine to process an input character 
Address of system . FORK routine 
Routine to get next char to send 
Routine to get CSR address for device 
Routine to get option slot # for device 



iEnd of PROVEC vector 



Data areas: 



PILINE 


. WORD 





PPLINE 


. WORD 





CPLINE 


. WORD 





PIBASE 


. WORD 





PIOIFL 


. WORD 





PISCNT 


. WORD 


-1 


R50PI: 


. RAD50 


/PI / 


VIDSLT 


. WORD 





VIDVEC 


. WORD 





QPCSR: 


. WORD 





QPVEC : 


. WORD 





PIMOC: 


. WORD 


MAXPOC 



# of line connected to Pro console 

# of line connected to printer port 

# of line connected to communications port 
Base 64-byte block # of PI handler 
Non-zero ==> Doing PI output interrupt 
Counts output starts per clock period 
Name of PI handler 

Option slot # where video controller is 

Address of video vector A 

Address of base of registers for quad port 

Address of vector for quad port 

Limit consecutive output chars to PI 



Table of possible video device ID values 



VIDTBL: 


. WORD 


1002 




. WORD 


50 




. WORD 


10050 




. WORD 


2002 


i Byte 


data 





350 video 

380 video 

380 video with EBO 

IVIS video 
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Data areas 



58 






59 


000104 


000 




000107 


000 


60 


000110 


000 


61 


000111 


000 


62 







000 000 QPLX: .BYTE 0,0/0,0 ;Line #'s connected to each quad port linp 

QPMODM: .BYTE ; 0==>4/0 configuration, l==>2/2 configuration 

QPSLOT: .BYTE ;Slot # where quad port controller installed 
. EVEN 



i 

i 
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System control register 



1 




2 




3 




4 




5 


173700 


6 




7 




8 




9 


000007 


10 


000020 


11 


000200 



. SBTTL System control register 

i —————— ——-~—— ———————— ——————— ————— —————— —————— —————————————————————. 

i Control values in system status register 

> 

PSSREG = 173700 > Address of status register 

> 

; Flags in status register 

i 

;Mask for memory bank information 

j Monitor-present flag 

iBreak enable flag for diagnostic port 



SS*BNK 


s 


7 


SSSMON 


3 


20 


SS*BRK 


= 


200 



f 
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'D 




3 




4 




5 




6 




7 




8 


1 73200 


9 


173202 


10 


173204 


11 


173206 


12 


173210 


13 


173212 


14 




15 




16 




17 


000001 


18 


000002 


19 


000004 


20 


000010 


21 


000020 


22 


000140 


23 


000200 


24 


000200 


25 




26 




27 




28 


000000 


29 


000020 


30 


000030 


31 


000040 


32 


000050 


33 


000060 


34 


000070 


35 


000100 


36 


000110 


37 


000120 


38 


000130 


39 


000140 


40 


000160 


41 


000170 


42 


000200 


43 


000240 


44 


000260 


45 


000300 


46 


000340 


47 




48 




49 




50 


000001 


51 


000002 


52 


000003 


53 


000004 


54 


000005 


55 


000006 


56 


000007 



SBTTL Interrupt control values 



The following values relate to the interrupt control system on the 
Professional computer. 



> Addresses 


of 


control registers 


ICODR 


ss 




173200 ; 


ICOCSR 


= 




173202 i 


IC1DR 


= 




173204 i 


IC1CSR 


ss 




173206 i 


IC2DR 


= 




173210 > 


IC2CSR 


— 




173212 i 


i Interrupt 


Mo 


de Register 


IM*PM 


3S 




1 i 


IM*VS 


SS 




2 i 


IM*IM 


= 




4 j 


IM*GIP 


= 




10 ; 


IM*IRP 


= 




20 > 


IM*RP 


= 




140 > 


IM*MM 


S3 




200 i 


IM*STV 


= 




200 i 



Interrupt controller 

Interrupt controller 

Interrupt controller 1 

Interrupt controller 1 

Interrupt controller 2 

Interrupt controller 2 



data register 
control register 
data register 
control register 
data register 
control register 



Priority mode (0=fixed» l=rotating) 

Vector selection 

Interrupt mode (l= ! =>Do not interrupt) 

Group interrupt polarity 

Interrupt request polarity 

Mask for register preselect values 

Master mask (l==>Enable group interrupts) 

Standard value for TSX-Plus 



Command values that can be stored into CSR register 



IM*RST 

IM*ZRM 

IM*CRM 

IM*ZM 

IM*CM 

IM*OM 

IM*SM 

IM*ZR 

IM*CR 

IM*OR 

IM*SR 

IM*CHP 

IMSZS 

IM*CS 

IM*LMB 

IM*CMB 

IM*PR 

IM*PA 

IM*PRM 



000 
020 
030 
040 
050 
060 
070 
100 
110 
120 
130 
140 
160 
170 
200 
240 
260 
300 
340 



Reset 

Clear bits in IRR and IMR registers 

Clear single bit in IRR and IMR registers 

Clear all bits in IMR register 

Clear single bit in IMR register 

Set all bits in IMR register to one 

Set single bit in IMR register 

Clear all bits in IRR register 

Clear single bit in IRR register 

Set all bits in IRR register to ones 

Set single bit in IRR register 

Clear highest priority ISR bit 

Clear ISR register to zero 

Clear single bit in ISR register 

Load mode bits 

Control mode bits 

Preselect IMR register 

Preselect ACR register 

Preselect response memory 



Values used with command codes to select specific interrupts 



IM4SKBR 
IM*KBT 
IM*CPD 
IM*CPM 
IM*PPR 
IM*PPT 
IM*CLK 



1 
2 
3 
4 
5 
6 
7 



ICO - Keyboard receiver interrupt 

ICO - Keyboard transmitter interrupt 

ICO - Communications port data transfer 

ICO - Communications port modem change 

ICO - Printer port receiver interrupt 

ICO - Printer port transmitter interrupt 

ICO - Clock interrupt 



I 
I 
I 

I 
I 
i 
f 
I 

4 

€ 

4 

I 

I 

4 

I 

< 

i 

i 

4 

4 

€ 

( 
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< 

i 



1 




2 




3 




4 




5 




6 




7 


000001 


8 


000002 


9 


000040 


10 


000100 


11 


000200 


12 


001400 


13 


002000 


14 


010000 


15 


040000 


16 


100000 
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. SBTTL Video display control values 
; The following values relate to the video display. 
; Control flags in Constrol/status register 



VPSLMD 
VP*IMD 
VP*OEF 
VP*EFI 
VP*EOF 
VP*COO 
VP*CME 
VP*OMP 
VP*DOI 
VP*TRD 



1 

2 

40 

100 

200 

1400 

2000 

10000 

40000 

100000 



Line mode definition 

Interlace mode definition 

Odd/Even frame flag 

End of frame interrupt enable 

End of frame flag 

Mask for class of operation 

Color map enable 

Option module presence flag 

Done interrupt enable 

Transfer done flag 



i 

€ 

I 
( 
< 
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1 




2 




3 




4 




5 




6 




7 




8 


173400 


9 


173402 


10 


173404 


11 


173406 


12 


177560 


13 


177564 


14 




15 


000220 


16 


000224 


17 




18 




19 




20 


000001 


21 


000002 


22 


000010 


23 


000020 


24 


000040 


25 


000200 


26 




27 




28 




29 


000014 


30 


000010 


31 


000014 


32 


000020 


33 


000040 


34 


000300 


35 


000102 


36 




37 




38 




39 


000017 


40 


000260 


41 




42 




43 




44 


000001 


45 


000002 


46 


000004 


47 


000010 


48 


000020 


49 


000040 


50 


000300 


51 


000047 



. SBTTL Printer port control values 



The following values relate to the "printer port" which can optionally 
be used as a time-sharing terminal under TSX-Plus. 



Register addresses and vectors 



PP*DBR 
PP*STR 
PP *MDR 
PP*CMR 
PP*RCS 
PP*TCS 

i 

PP*RCV 
PP*TRV 



173400 
173402 
173404 
173406 
177560 
177564 

220 
224 



Flags in the status register 



PP*TR 
PP*RD 
PP*PE 
PP*0E 
PP*FE 
PP*DSR 



1 

10 
20 
40 
200 



Flags in mode register 1 



PP*LEN 
PP*7BT 
PP*8BT 
PP*PAR 
PP*EVN 
PP*SBL 
PP*M1F 



14 

10 

14 

20 

40 

300 

102 



Flags in mode register 2 



PP*BRS = 
PP*M2F = 



17 

260 



Command register 



PP*TEN 

PP*DTR 

PP*REN 

PP*FB 

PP*RE 

PP*RTS 

PP*OM 

PPSCMF 



1 

2 

4 

10 

20 

40 

300 

47 



i Data buffer register 

; Status register 

; Mode reg isters 

i Command register 

i Receiver CSR for maintenance mode 

i Transmitter CSR for maintenance mode 

.Receiver vector 
/Transmitter vector 



; Transmitter ready 

; Receive done 

.Parity error detected 

; Overrun error 

; Framing error 

i Data set ready 



/Mask for character length 
,7 bit characters 
/8 bit characters 
/Enable parity control 
/ l==>even parity/ 0==>odd 
/Mask for stop bit length 
/Standard mode register 1 



parity 

value for TSX-Plus 



/Mask for baud rate select field 

/Standard mode register 2 value for TSX-Plus 



/Transmitter enable 

; Data terminal ready 

/ Receiver enable 

/Force break transmission 

i Reset error 

; Request to send 

/Operating mode mask 

/Standard command register value for TSX-Plus 
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i 




p 




3 




4 




5 




6 




7 




8 


173300 


9 


173302 


10 


173306 


ii 


173310 


12 


173312 


13 


173314 


14 




15 


000210 


16 


000214 


17 




18 




19 




20 


000007 


21 


000070 


22 


000300 


23 




24 




25 




26 




27 


000000 


28 


000001 


29 


000002 


30 


000003 


31 


000004 


32 


000005 


33 


000006 


34 


000007 


35 


000000 


36 


000001 


37 


000002 


38 




39 




40 




41 


000010 


42 


000020 


43 


000030 


44 


000040 


45 


000050 


46 


000060 


47 


000070 


48 




49 




50 




51 


000001 


52 


000002 


53 


000030 


54 




55 




56 




57 


000001 
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SBTTL Communications port control values 



Control values for the communications port which may be used as 
a TSX-Plus time-sharing line. 



Control registers and vectors 



CP*DBR 
CP*CAR 
CP*CBR 
CP*M0R 
CP*M1R 
CP*BRR 

* 

CP*RTV 
CP*MCV 



173300 
173302 
173306 
173310 
173312 
173314 

210 
214 



Control/status Register A 



CPSARP 
CPSACM 
CPSCRC 



7 

70 

300 



Data buffer register 
Control/status register A 
Control/status register B 
Modem control register 
Modem control register 1 
Baud rate register 

i Receive/transmit vector 
; Modem change vector 



; Mask to select read/write sub-register 

iMask for command bits 

> Mask for CRC control bits 



Read/Write sub-register select values 
(These values are stored into CP*ARP and 



CP*BRP to select sub registers) 



CP*WR0 


= 





CP*WR1 


= 


1 


CP*WR2 


= 


2 


CP*WR3 


= 


3 


CP*WR4 


= 


4 


CP*WR5 


= 


5 


CP*WR6 


= 


6 


CP*WR7 


= 


7 


CP*RR0 


= 





CP*RR1 


= 


1 


CP*RR2 


= 


2 


; Command 


values 


CP*SA 


= 


10 


CP*RES 


= 


20 


CP*CR 


as 


30 


CP*EIR 


SB 


40 


CP*RTI 


= 


50 


CP*ER 


SB 


60 


CP*EI 


= 


70 



Writ 
Writ 
Writ 
Writ 
Writ 
Writ 
Writ 
Writ 
Read 
Read 
Read 



e reg 

e reg 

e reg 

e reg 

e reg 

e reg 

e reg 

e reg 

reg i 

regi 

regi 



ister 

ister 

ister 

ister 

ister 

ister 

ister 

ister 

ster 

ster 1 

ster 2 



for WRO under control/status register A 



Send abort 

Reset external interrupt 

Channel reset 

Enable interrupt on next char received 

Reset transmitter interrupt pending 

Error reset 

End of interrupt 



Sub-register WR1 under control/status register A 



CP*EIE = 
CP*TIE = 
CP*RIE = 



1 
2 
30 



External interrupt enable 

Transmitter interrupt enable 

Mask for receiver interrupt enable flags 



Sub-register WR3 under control/status register A 
CP*REN = 1 ; Receiver enable 
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* Communications 


port co 


58 


000002 


' 59 


000004 


60 


000010 


61 


000020 


' 62 


000300 


63 


000100 


i 64 


000300 


< 65 


000001 


66 




i 67 




* 68 




69 


000001 


70 


000002 


* 71 


000014 


72 


000060 


£ 73 


000300 


* 74 


000104 


75 




. 76 




" 77 




78 


000001 


M 79 


000004 


* 80 


000010 


81 


000020 


M 82 


000014 


" 83 


000040 


84 


000140 


- 85 


000010 


" 86 




87 




M 88 




* 89 


000001 


90 


000002 


M 91 


000004 


1 92 


000020 


93 


000100 


94 


000200 


* 95 




96 




97 




% 98 


000001 


99 


000016 


100 


000020 


* 101 


000040 


102 


000100 


103 


000200 


t 104 




105 




106 




* 107 


000007 


108 




109 




t 110 




111 


000004 


112 




* 113 




114 





CP*SCL 


= 


2 


CPSASM 


= 


4 


CP*RCE 


= 


10 


CP*EHP 


= 


20 


CPSRCL 


= 


300 


CPS7BR 


= 


100 


CP*8BR 


= 


300 


CP*AW3 


= 


001 


> Sub- 


■register 


WR4 


CP*PAR 


sr 


1 


CP*EVN 


= 


2 


CP*SBS 


= 


14 


CPSSMS 


= 


60 


CP*CMM 


= 


300 


CP*AW4 


— 


104 


; Sub- 


-reg ister 


WR5 


CP*TCE 


= 


1 


CP*CCS 


=r 


4 


CP*TEN 


= 


10 


CP*SB 


= 


20 


CP*LEN 


= 


14 


CP*7BT 


= 


040 


CP*8BT 


= 


140 


CP*AW5 


- 


010 


; Sub- 


reg ister 


RRO 


CP*RCA 


« 


1 


CP*INP 


= 


2 


CP*TBM 


= 


4 


CP*SH 


= 


20 


CP*TEM 


= 


100 


CP*BR 


= 


200 


i Sub- 


•register 


RR1 


CP*AS 


sz 


1 


CP*RC 


s= 


16 


CP*RPE 


= 


20 


CP*ROE 


= 


40 


CP*RFE 


5= 


100 


CP*EOF 


= 


200 



Sync character load inhibit 
Address search mode 
Receiver CRC enable 
Enter hunt phase 
Receiver character length 

7 bit characters 

8 bit characters 
Standard value for TSX-Plus 



under control/status register A 



; Parity enab le 

; i==>even parity* 0==>odd parity 

jMask for stop bits select value 

;Mask for synchronous mode control 

» Mask for clock mode value 

; Standard value for TSX-Plus 



Transmitter CRC enable 

CRC polynomial select 

Transmitter enable 

Send break 

Transmitter character length 

7 bit characters 

8 bit characters 
Standard value for TSX-Plus 



flags 



under control/status register A 



iReceive character available 

/Interrupt pending 

; Transmit buffer empty 

; Sync/hunt 

; Transmitter underrun/end of message 

; Break received 



under control/status register A 



/ Al 1 sent 

; Mask for 

> Received 

i Receiver 

> Framing error 

; End of frame 



— Transmitter ready for next char 
residue codes 
parity error 
overrun error 



Control/status Register B 
CP*BRP = 7 /Mask to select sub-register 

Sub-register WR1 under control/status register B 
CP*BW1 = 4 i Standard value for TSX-Plus 

Sub-register WR2 under control/status register B 



I 
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< 
< 

» t 

4 



115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 



077777 



000000 
000024 
000030 
000034 



000001 
000002 
000004 
000010 
000020 
000140 
000200 
000030 



000004 
000010 
000020 
000040 
000100 
000200 



CP*BW2 



77777 



; Standard value for TSX-Plus 



Sub-register RR2 under control/status register B 



CP*ITE 


= 





CP*IES 


= 


24 


CP*IRC 


= 


30 


CP*ISR 


= 


34 



Modem Control Register 



CP*LL 

CP*RL 

CP*SRS 

CP*RTS 

CP*DTR 

CP*CS 

CP*MM 

CP*MCO 



1 

2 

4 

10 

20 

140 

200 

30 



Modem Control Register 1 



CP*SMI 

CP*TI 

CP*CD 

CP*CTS 

CP*RI 

CP*DSR 



4 

10 

20 

40 

100 

200 



; Transmitter buffer empty 
; External status change 
; Receiver character available 
iSpecial receiver condition 



Local loopback 

Remote loopback 

Signaling rate select 

Request to send 

Data terminal ready 

Mask for clock source values 

Maintenance mode 

Standard value for TSX-Plus 



Speed mode indicator 
Test indicator 
Carrier detect 
Clear to send 
Ring indicator 
Data set ready 
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2 




3 




4 




5 




6 


000064 


7 




8 




9 




10 




11 




12 


000004 


13 


000100 


14 


000102 


15 


000106 


16 


000112 


17 


000120 


IS 


000122 


19 


000126 


20 


000132 


21 




22 




23 




24 


000102 


25 


000104 


26 


000106 


27 


000110 


28 


000112 


29 


000122 


30 


000126 


31 


000132 


32 


000134 


33 


000136 


34 




35 




36 




37 


000020 


38 


000040 


39 




40 




41 




42 




43 




44 


000004 


45 


000010 


46 


000100 


47 




48 




49 




50 


000002 


51 


000003 


52 


000004 


53 


000020 


54 


000040 


55 


000100 


56 


000200 


57 





. SBTTL Quad Serial Line Unit control values 



Device ID for quad serial line unit 
QP*ID = 64 ; Device ID for quad serial line unit 

Addresses of registers relative to base address for module 
Read registers 



I 
I 



QPRMSR 
QPRMRA 
QPRSRA 
QPRRRA 
QPRISR 
QPRMRB 
QPRSRB 
QPRRRB 
QPRIP 



004 
100 
102 

106 
112 
120 
122 
126 
132 



Write registers 



QPRCSA 
QPRCRA 
QPRTRA 
QPRACR 
QPRIMR 
QPRCSB 
QPRTRB 
QPROPC 
QPRSOP 
QPRROP 



102 
104 
106 
110 
112 
122 
126 
132 
134 
136 



Module status register 
Mode register A 
Status register A 
Receiver register A 
Interrupt status register 
Mode register B 
Status register B 
Receiver register B 
Input port 



Clock select A 

Command register A 

Transmitter register A 

Auxiliary control register 

Interrupt mask register 

Clock select B 

Transmitter register B 

Output port configuration register 

Set output port bits register 

Reset output port bits register 



Offsets to register addresses by channel and DUART 



QPRCOF = 
QPRUOF = 



020 
040 



iDiff between channel A and B registers 



;Diff between DUART O and DUART 1 registers 
Control flags for the quad serial line unit. 



Module status register 



QP*22C 


=5 


4 


QPS40C 


= 


10 


QPSIEN 


= 


100 



Mode register 1 



QP*7BR 
QP*8BR 
QP*0DD 
QP*NPR 
QP*BEM 
QP*SFL 
QP*RXR 



3 

4 

20 

40 

100 

200 



; 2/2 configuration 
i 4/0 configuration 
.Interrupt enable 



;7 bit characters 

;8 bit characters 

; On ==> Odd parity 

; No parity <off==>Want parity) 

>Block error mode 

; Interrupt when silo full 

^Receiver RTS control 
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58 




59 




60 


000007 


61 


000017 


62 


000020 


63 


000040 


64 




65 




66 




67 


000001 


68 


000002 


69 


000004 


70 


000010 


71 




72 




73 




74 


000020 


75 


000040 


76 


000060 


77 


000100 


78 


000120 


79 


000140 


80 


000160 


81 




82 




83 




84 


000001 


85 


000002 


86 


000004 


87 


000010 


88 


000020 


89 


000040 


90 


000100 


91 


000200 


92 




93 




94 




95 


000360 


96 




97 




98 




99 


000001 


100 


000002 


101 


000004 


102 


000010 


103 


000020 


104 


000040 


105 


000100 


106 


000200 


107 




108 




109 




110 


000063 



Mode register 2 



QP*1SB 


= 


7 


QP*2SB 


= 


17 


QP*TCS 


= 


20 


QP*TRS 


= 


40 



; One stop bit 

; Two stop bits 

; Transmitter CTS enable 

/Transmitter RTS enable 



Command register 



QP*ERX 


= 


1 


; Enable receiver 


QP*DRX 


= 


2 


> Disable receiver 


QP*ETX 


= 


4 


^Enable transmitter 


QP*DTX 


= 


10 


/Disable transmitter 


; Command 


values for command register 


QP*RPR 


= 


20 


/Reset MR pointer 


QPSRRX 


= 


40 


j Reset receiver 


QP*RTX 


= 


60 


; Reset transmitter 


GPSRES 


= 


100 


/Reset error status 


QP*RBC 


= 


120 


/ Reset break change interrupt 


GP*SBT 


= 


140 


/Start break transmission 



GP*EBT 



160 



Status register 



QP*RDN 
GP*FFL 
GP*TDN 
QP*TEM 
QPSROE 
QPSRPE 
GP*RFE 
QP*BRK 



1 

2 

4 

10 

20 

40 

100 

200 



Auxiliary control register 
OP* AW A = 360 

Interrupt status register 



QP*TAR 
QP*RAR 
GPSBCA 
QP*CNR 
QP*TBR 
QP*RBR 
QP*BCB 
QP*IPC 



1 

2 

4 

10 

20 

40 

100 

200 



Interrupt mask register 
QP*AWI = 063 



/End break transmission 



/Receiver ready (character received) 

;FIFO silo full 

/Transmitter ready (finished sending char) 

/ Transmitter buffer empty 

/Receiver overrun error 

/Received parity error 

/Received framing error 

/ Received break 



/Standard value for TSX-Plus 



/Transmitter A finished transmission 
/Receiver A has a character 
/Receiver A break status change 
/ Counter/timer ready 

/Transmitter B finished transmission 
; Receiver B has a character 
/Receiver B break status change 
/ Input port status change 



/Standard value for TSX-Plus 



TSXPRO — TSX-Plus PROxxx Routi MACRO V05. 05 Friday 20-Jan-89 12:41 Page 21 
PROINI — General initialization for Pro 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000112 010146 



000114 004737 000270' 



000120 012701 000074' 

000124 012100 

000126 004737 001254' 

000132 103774 

000134 010037 000062' 

000140 072027 000003 

000144 062700 000300 

000150 010037 000064' 

000 1 54 01 3700 000062 ' 

000160 072027 000007 

000164 062700 174000 

000170 010037 OOOOOOG 



000174 012737 001126' OOOOOOG 
000202 012737 001130' OOOOOOG 



000210 
000214 
000220 
000222 



1 1 3700 
1 53700 
001405 
105237 



177560 
177564 

OOOOOOG 



. SBTTL PROINI — General initialization for Pro 

Perform general system initialization for PRO. 

PROINI: MOV R1/-CSP) 

Set up information about which device is installed in each option slot 

CALL INISLT 

Set up address of video interrupt vector and CSR 

iPoint to table with video ID's 
1*: MOV (R1)+,R0 i Get next possible video device ID 

> See if we can find this ID 
; Loop if not 

i Save video option slot number 
/Convert slot # to interrupt address 

; Save address of video int vector 

/ Get video slot # 

; CSR addresses are 200 apart per slot 

;Add address of CSR for slot O 

/ Set CSR address for video 

Store pointers to the routines that get CSR and Vector addresses 
for PRO devices. 



MOV 


#VIDTBL> Rl 


MOV 


(RD+/RO 


CALL 


GETSLT 


BCS 


1* 


MOV 


RO, VIDSLT 


ASH 


#3, RO 


ADD 


#300/ RO 


MOV 


RO, VIDVEC 


MOV 


VIDSLT, RO 


ASH 


#7/ RO 


ADD 


#174000. RO 


MOV 


RO, VIDCSR 



MOV #GPVVEC/ RPRVEC 
MOV #GPVCSR/ RPRCSR 



; Routine to get PRO vector addresses 
; Routine to get PRO CSR addresses 



Determine if a terminal is connected to the printer port. 



MOVB 


@#PP*RCS, RO 


BISB 


@#PP*TCS, RO 


BEQ 


4* 


INCB 


PPTERM 



/Get receiver control register 
/Combine flags from transmitter 
;Br if terminal not connected 
/Remember terminal on printer port 



A terminal is connected to the printer port. 

Enable BREAK key on diagnostic terminal to enter ODT 



000226 005727 OOOOOOG 

000232 001004 

000234 042737 000200 173700 4*: 

000242 000406 

000244 052737 000200 173700 2$: 

000252 012737 000067 173406 



TST #PROBRK 

BNE 2* 

BIC #SS*BRK/ @#PSSREG 

BR 5* 

BIS #SS*BRK/ ©#PSSREG 

MOV #PP*CMF i PP*RE/ @#PP*CMR 



; Is break control wanted? 

; Br if yes 

; Disable break control 

/Enable break ODT entry 
/Enable printer port 



Perform initialization for quad serial line unit 



000260 

000260 004737 004660 ' 



5*: 



. IF 


NEz QPASM 


CALL 


QPINIT 


. ENDC 


, NE/ QPASM 


Finished 





» Do if quad line support wanted 
ilnit quad line unit 
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58 000264 012601 9$: MOV <SP>+, Rl 

59 000266 000207 RETURN 



c 

< 

< 
4 
I 

4 

i 

4 



TSXPRO - 


— TSX-Plus PROxxx Routi 


MACRO V 


INISLT - 


— Set u 


p information about opti 


1 
2 










3 










4 










5 










6 


000270 


010146 






7 


000272 


010246 






8 










9 










10 










11 


000274 


005001 






12 


000276 


153701 


173050 




13 


000302 


072127 


000011 




14 


000306 


162701 


000200 




15 


000312 








16 


000320 


013746 


OOOOOOG 




17 


000324 


010137 


OOOOOOG 




18 


000330 


052737 


OOOOOOG 


OOOOOOG 


19 


000336 


052737 


OOOOOOG 


OOOOOOG 


20 










21 










22 










23 


000344 


012702 


017764G 




24 


000350 


011200 






25 










26 










27 










28 


000352 


012701 


OOOOOOG 




29 


000356 


005742 






30 


000360 


014221 






31 


000362 


077003 






32 


000364 


012711 


177777 




33 










34 










35 










36 


000370 


012637 


OOOOOOG 




37 


000374 


042737 


OOOOOOG 


OOOOOOG 


38 


000402 








39 










40 










41 










42 


000410 


012602 






43 


000412 


012601 






44 


000414 


000207 
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SBTTL INISLT 



Set up information about option slots 



This routine initializes a table that contains the device ID's of 
devices installed in each of the PRO option slots. 



INISLT: MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 



Map KPAR5 to system configuration table 



CLR 


Rl 


BISB 


@# 173050, Rl 


ASH 


#9. , Rl 


SUB 


#200, Rl 


DISABL 




MOV 


@#KPAR5, -(SP) 


MOV 


R1,@#KPAR5 


BIS 


#MMENBL, @#SROMMR 


BIS 


#EMMAP, @#SR3MMR 



Get byte value without sign extension 
Get 32Kb top of memory block # 
Convert to 64 byte block number 
Get # of last 8Kb block of memory 
; ## Disable interrupts ## 
; Save current par 5 mapping 
; Map par5 to configuration table 
i Turn on memory management 
; Enable 22 bit addressing 



Get number of option slots 



1*: 



MOV #VPAR 5+1 7764, R2 ; a Point to cell with # option slots 
MOV <R2),R0 i i i Get # of option slots 

Set up table in TSX that has device ID number of each option slot 

;Point to table that will store option ID's 

;Skip word with option status value 

j Store option ID code 

; Loop to get all option slot device ID's 

i Store -1 at end of table 



MOV 


#PROSLT, Rl 


TST 


-<R2> 


MOV 


-<R2>, (RD + 


SOB 


RO, 1* 


MOV 


#-1, <R1) 



Restore KPAR5 mapping 



MOV 
BIC 
ENABL 



<SP>+, @#KPAR5 
#MMENBL, @#SROMMR 



j ; Restore par 5 mapping 
; i Turn off memory mapping 
## Enable interrupts #* 



Finished 



MOV 
MOV 
RETURN 



<SP)+, R2 
<SP)+, Rl 



TSXPRO - 


— TSX-Plus PROxxx Rout 


PRONOP - 


— Disable PRO interrup 


i 
2 








3 








4 








5 








6 


000416 


010146 




7 


000420 


012700 


000466 


e 


000424 


010037 


000060 


9 


000430 


010037 


000200 


10 


000434 


010037 


000064 


11 


000440 


010037 


000204 


12 


000444 


010037 


000230 


13 


000450 


013701 


000064 


14 


000454 


010011 




15 


000456 


010061 


000004 


16 








17 








IS 








19 


000462 


012601 




20 

21 
22 


000464 


000207 










23 








24 


000466 


000002 
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SBTTL PRONOP 



Disable PRO interrupts 



PRONOP is called during system startup to direct PRO interrupts to 
an RTI instruction so they will not enter RT-11. 



Get address of RTI instruction 
Catch keyboard input interrupt 
380 keyboard input interrupt 
End-of-transf er video interrupt 
Keyboard output interrupt 
380 clock interrupt 
Point to video interrupt vectors 
End -of --frame video interrupt 
end-of-transfer video interrupt 



PRONOP: MOV 


R1,-<SP) 


MOV 


#DORTI»RO 


MOV 


RO, @#60 


MOV 


RO, e#200 


MOV 


RO, @#64 


MOV 


RO, S#204 


MOV 


RO, @#230 


MOV 


VIDVEC, Rl 


MOV 


RO, (Rl) 


MOV 


R0,4(R1> 


> Finished 




MOV 


(SP)+, Rl 


RETURN 




; RTI instruct 


ion used t 



DORTI: RTI ; Return from interrupt immediately 
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1 
2 
3 
4 

5 000470 

6 000472 

7 000474 

8 000476 

9 000502 
10 

11 
12 

13 000506 

14 000512 

15 000520 
16 

17 
18 

19 000526 

20 000532 

21 000536 

22 000540 

23 000542 

24 000546 

25 000550 

26 000552 

27 000554 

28 000556 

29 000560 
30 

31 
32 

33 000562 

34 000566 

35 000572 

36 000576 

37 000602 

38 000606 

39 000612 

40 000616 

41 000622 

42 000626 

43 000630 
44 

45 
46 
47 
48 
49 
50 
51 

52 000632 

53 000636 

54 000642 
55 

56 
57 



010146 
010246 
010346 
013746 
013746 



012703 
016337 
013737 



012701 
012702 
011100 
001404 
062700 
010012 
000402 
011211 
001402 
022122 
000766 



013701 
162701 
072127 
063701 
010137 
013700 
162700 
012701 
013702 
012122 
077002 



013701 
012703 
004777 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
000052 ' 



001000G 
000000 ' 



OOOOOOG 



000000 ' 

OOOOOOG 

177772 

000052 ' 

OOOOOOG 

000002 ' 

OOOOOOG 

OOOOOOG 

OOOOOOG 



000052 ' 
OOOOOOG 
OOOOOOG 



. SBTTL PROHAN — Initialize the PI handler 
PROHAN is called to initialize the PI handler. 



PROHAN: MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -<SP> 
R2, -<SP> 
R3, -<SP> 
S#KPAR5, -<SP> 
@#KPAR6, -(SP) 



Save current kernel PARS mapping 
Save current kernel PAR6 mapping 



Set up information about where the PI handler is in memory. 

MOV #PISRT, R3 i Point to shared run-time descriptor for PI 
000052' MOV RT*BAS(R3),PIBASEi This is base 64-byte block # of run-time 

OOOOOOG MOV PIBASE, @#KPAR5 j Map to base of PI handler through PAR 5 

Transfer information between TSXPRO and the PI handler. 



5*: 



6*: 
7*: 



MOV #VPAR5+100Q, Rl 

MOV #PROVEC, R2 

MOV <R1),R0 

BEG 6$ 

ADD #VPAR5, RO 

MOV RO, <R2> 

BR 7* 

MOV ( R2 ) , ( R 1 ) 

BEG. 8* 

CMP <R1)+, <R2)+ 

BR 5* 



; Point to HOKVEC vector in PI handler 

i Point to TSXPRO vector 

; Get address of a cell in PI handler 

> Br if PI wants an address 

; Bias the address to be in PAR 5 region 

; Store address pointer in TSXPRO cell 

> Pass an address to PI handler 
; Br if just hit end of lists 
; Increment both list pointers 
» Continue processing lists 



Move the PI initialization overlay into the TSINIT work buffer. 



8$: 



4$: 



MOV PIINAD, Rl 

SUB #VPAR5, Rl 

ASH #-6, Rl 

ADD PIBASE, Rl 

MOV Rli@#KPAR6 

MOV PIINWD, RO 

SUB #VPAR5, RO 

MOV #VPAR6, Rl 

MOV PROBUF, R2 

MOV <R1>+, (R2)+ 

SOB RO, 4* 



Get address of init overlay 

Subtract bias we added 

Convert to 64-byte block # 

Get mapping base for init overlay 

Map to overlay through PAR 6 

Get # words in init overlay 

Subtract bias we added 

Get virtual address of init overlay 

Get address of TSINIT work buffer 

Move init code to work buffer 



Now execute the PI initialization code that we have moved to 

the TSINIT work buffer. 

Note: PAR5 is now mapped to the resident portion of the PI handler. 

On entry, 

R3 - Virtual address of base of PI handler. 

Rl = 64-byte block number of base of PI handler. 

Get 64-byte block # of PI base 
Get virtual address of PI base 
Call PI initialization code 

Now get some actual addresses from PI handler 



MOV 


PIBASE, Rl 


MOV 


#VPAR5, R3 


CALL 


SPROBUF 



f 

I 
< 
i 

« 

i 
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58 000646 

59 

60 

61 

62 000654 

63 000660 

64 000664 

65 000670 

66 000672 

67 000676 

68 000700 

69 000706 
70 

71 
72 

73 000712 

74 000720 

75 000726 

76 000732 

77 000736 

78 000740 

79 000744 

80 000746 

81 000754 
82 

83 
84 
85 

86 000762 

87 000766 

88 000770 

89 000774 

90 000776 

91 001002 
92 

93 
94 
95 

96 001010 

97 001014 

98 001020 

99 001022 

100 001024 

101 001026 



017737 177144 000016' 



012700 
012701 
012721 
010021 
012721 
010021 
012737 
010037 



013737 
013737 
013701 
012721 
010021 
012721 
010021 
013737 
013737 



013703 
001410 
012723 
010013 
013703 
152763 



012637 
012637 
012603 
012602 
012601 
000207 



MOV 



@*VDCSR, *VDCSR 



000340 
000060 
002114' 

001560' 

002214' 000204 
000206 



000060 000200 
000062 000202 
000064 ' 
002052 ' 

001560' 

000100 000230 
000102 000232 



Connect to interrupt vectors 

MOV #340, RO 

MOV #60, Rl 

MOV #PIKIIR, (Rl)+ 

MOV RO, (Rl)+ 

MOV #PIVTIR, <R1)+ 

MOV RO, <R1) + 

MOV #PIK0IR,@#204 

MOV RO, ©#206 



Get video CSR address 



Get priority 7 code 

Get address of start of vector area 

Set keyboard input interrupt routine 

Set interrupt service priority to 7 

Set end of transfer video interrupt 

Set priority = 7 

Set keyboard output interrupt routine 

Set priority 



Connect to 380 interrupt vectors 



MOV @#60, @#200 

MOV @#62, ©#202 

MOV VIDVECR1 

MOV #PIVFIR, <R1> + 

MOV RO, <R1) + 

MOV #PIVTIR, <R1)+ 

MOV RO, (Rl)+ 

MOV @#100, @#230 

MOV ©#102, S#232 



; 380 keyboard input interrupt 

Point to video interrupt vector A 

Set end-of-frame video interrupt 

Set priority 

Set end-of-transf er video interrupt 

Set priority 

380 clock interrupt 



Connect to interrupt for quad serial line unit 



000070 ' 

005354' 

000066 ' 
000100 000004 



OOOOOOG 
OOOOOOG 



. IF 

MOV 

BEG 

MOV 

MOV 

MOV 

BISB 

. ENDC 

Finished 

10*: MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



NE, QPASM 

QPVEC, R3 

10* 

#QPCINT, <R3)+ 

RO, (R3) 

QPCSR, R3 

#QP*IEN, QPRMSR<R3) 

i NE, QPASM 



Assemble if quad line unit support wanted 
Get address of interrupt vector 
Br if quad serial unit not installed 
Set PC for interrupt 
Set PS for interrupt 
Get address of CSR register 
; Enable interrupts 



€ 
4 

t 

( 
€ 

i 



(SP>+, @#KPAR6 
<SP)+, @#KPAR5 
(SP)+, R3 
(SP)+, R2 
(SP)+,R1 



i Restore kernel mapping 



TSXPRO 
PROLIN 
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€ 
« 



i 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001030 



001030 005761 OOOOOOG 

001034 001403 

001036 004737 005136' 

001042 000427 



. SBTTL PROLIN — See if line is a special PRO terminal 

PROLIN is called once for each DL11 type line defined in the system. 
It determines if the line is a printer port or communications port 
line and if so performs the initialization for the line. 

Inputs: 
Rl = Line index number. 

Outputs: 
C-flag cleared -=> This is a printer port or comm port line. 
C-flag set ==> This is not a printer port or comm port line. 

PROLIN: 

See if this is a line connected to the quad serial line unit 

{Assemble for quad line support 

* Is this line on a mux? 

; Br if not 

; Initialize line on quad unit 



. IF 


NE, QPASM 


TST 


LMXNUM(Rl) 


BEQ 


3* 


CALL 


QPLINE 


BR 


9* 


. ENDC 


i NE, QPASM 



See if this is the Professional video console 



001044 026127 OOOOOOG 000060 3$: 

001052 001003 

001054 004737 001316' 

001060 000420 



CMP 


INVEC(Rl), #60 


BNE 


2* 


CALL 


PIINIT 


BR 


9* 



; Is this the console line? 
; Br if not console line 
; Initialize PI line 



001062 016100 OOOOOOG 



001066 020027 173400 

001072 001003 

001074 004737 002324 

001100 000410 



001102 020027 173300 

001106 001003 

00 1 1 1 004737 003 1 46 

001114 000402 



001116 000261 
001120 000401 



001122 000241 



Get address of receiver status register for the line 

2*: MOV RSR(R1),R0 ; Get address of receiver status register 

See if this is the printer port 

i Printer port? 

; Br if not 

; Initialize the printer port 



CMP 


RO, #PP*DBR 


BNE 


1* 


CALL 


PPINIT 


BR 


9* 



See if this is the communications port 



1$: 



CMP 


RO, #CP*DBR 


BNE 


8* 


CALL 


CPINIT 


BR 


9* 



i Communications port? 

; Br if not 

i Initialize the comm port 



This line is not the printer port or the comm port 



8*: 



SEC 
BR 



; Signal failure on return 



10* 



This line was the printer port or the comm port 
9*: CLC {Signal success on return 
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58 i 

59 ; Finished 

60 i 

61 001124 000207 10*: RETURN 



TSXPRO — TSX-Plus PROxxx Routi MACRO V05. 05 Friday 
PROLIN — See if line is a special PRO terminal 



-89 12: 41 Page 26 



1 

3 

4 

5 

6 

7 

9 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



001 
001 
001 



126 

130 
132 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



134 
136 
142 
146 
150 
154 
160 
162 
166 
170 



Branch vectnr to entru ooints of PRO CSR/Vector/Slot routines 



000402 
000420 
000436 



8PWEC 
GP VCSR 
GPVSLT 



BR 
BR 
BR 



GPRVEC 
GPRCSR 
GPRSLT 



SBTTL GPRVEC 



Get vector address 
Get CSR address 
Get Slot value 



Get address of vector for PRO device 



This routine is called to determine the address of the interrupt vector 
for a PRO device based on the device ID. 

Inputs: 
Device ID is pushed on stack before calling GPRVEC. 

Outputs: 
C-flag cleared ===> Found device in tables; C-flag set 
Top of stack contains vector for device. 



==> No such device. 



010046 
016600 
004737 
103407 
072027 
062700 
000241 
010066 
012600 
000207 



000004 
001254' 

000003 
000300 

000004 



GPRVEC: 


MOV 


RO, -<SP> 




MOV 


4<SP),R0 




CALL 


GETSLT 




BCS 


9* 




ASH 


#3, RO 




ADD 


#300, RO 




CLC 






MOV 


RO, 4(SP) 


9*: 


MOV 
RETURN 


(5P)+, RO 



■, Get the device ID code 

; Determine which option slot has the dev 

i Br if device not recognized 

} Vectors are 8 bytes apart per slot 

; Vectors for slot O start at 300 

» Signal success on return 

; Place vector address on stack 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



001172 
001174 
001200 
001204 
001206 
001212 
001216 
001220 
001224 
001226 



010046 
016600 
004737 
103407 
072027 
062700 
000241 
010066 
012600 
000207 



000004 
001254' 

000007 
174000 

000004 



. SBTTL GPRCSR — Get address of CSR for PRO device 

This routine is called to determine the address of the CSR 
for a PRO device based on the device ID. 

Inputs: 
Device ID is pushed on stack before calling GPRCSR. 



Outputs: 
C-flag cleared ==> Found 



device in tables; C-flag set ==> No such device. 



Top of stack contains address of CSR for device. 



GPRCSR: 



9*: 



MOV 

MOV 

CALL 

BCS 

ASH 

ADD 

CLC 

MOV 

MOV 

RETURN 



RO, -<SP) 

4<SP>, RO 

GETSLT 

9* 

#7. , RO 

#174000, RO 

RO, 4(SP) 
(SP)+, RO 



i Get the device ID code 

; Determine which option slot has the dev 

; Br if device not recognized 

; CSR address are 200 apart per slot 

; CSR for slot starts at 174000 

i Signal success on return 

; Place CSR address on stack 



TSXPRO - 
GPRSLT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 
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001230 
001232 
001236 
001242 
001244 
001250 
001252 



. SBTTL GPRSLT — Get Slot number for PRO device 

This routine is called to determine the slot number 
for a PRO device based on the device ID. 

Inputs: 
Device ID is pushed on stack before calling GPRSLT. 

Outputs: 
C-flag cleared --"> Found device in tables; C-flag set 
Top of stack contains slot number for device. 






O- No such device. 



010046 
016600 
004737 
103402 
010066 
012600 
000207 



000004 
001254' 

000004 



GPRSLT: MOV 
MOV 
CALL 
BCS 
MOV 

9*: MOV 

RETURN 



RO, -(SP) 

4(SP),R0 

GETSLT 

9* 

RO, 4(SP) 

<SP)+, RO 



; Get the device ID code 

{Determine which option slot has the dev 

; Br if device not recognized 

.Put slot number back onto stack 



TSXPRO - 
GETSLT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

ie 

19 
20 
21 
22 
23 
24 
25 
26 
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- Determine which option slot has device controller 



001254 
001256 
001260 
001264 
001270 
001272 
001274 
001276 
001302 
001304 
001306 
001310 
001312 
001314 



010146 
010001 
012700 
021027 
001407 
020120 
001373 
162700 
006200 
000241 
000401 
000261 
012601 
000207 



. SBTTL GETSLT — Determine which option slot has device controller 

This routine is called to determine which PRO option slot contains the 
controller for a specified device. 

Inputs: 
RO = Device ID code. 

Outputs: 
C-flag cleared ==> Found the device; C-flag set ==> No such device 
RO = Slot number. 



GETSLT: MOV 
MOV 



OOOOOOG 



000002G 



1*: 



2*: 
9*: 



MOV 

CMP 

BEG. 

CMP 

BNE 

SUB 

ASR 

CLC 

BR 

SEC 

MOV 

RETURN 



R 1 , - < SP ) 

RO, Rl 

#PROSLT, RO 

(R0),#-1 

2* 

Rl, <R0) + 

1* 

#PR0SLT+2, RO 

RO 

9* 

<SP)+, Rl 



i Get device ID code 

/Point to table with device ID codes 

/Reached end of table entries? 

; Br if yes 

i Search for device ID in table 

; Loop if not found 

^Compute table offset of entry 

i Convert to word index 

>Signal success on return 

; Signal failure on return 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 001316 
11 
12 
13 

14 001316 010137 000044' 

15 001322 012761 OOOOOOG 0000000 
16 

17 

18 

19 001330 012737 001354' OOOOOOC 

20 

21 

23 001336 005761 OOOOOOG 

24 001342 001003 

25 001344 012761 OOOOOOG OOOOOOG 
26 

27 
28 
29 001352 000207 



. SBTTL *** Console Control Routines *** 
. SBTTL PIINIT — Initialize the console 



PIINIT is called during system initialization to initialize the 
console. 

Inputs: 
Rl = Line index number. 

PIINIT: 

Remember index number of line connected to console 

MOV RliPILINE i Save line index # of console line 

MOV #CDX*PI, LCDTYP<R1>; Set type of communications controller 

Set addresses of communication port device-dependent routines 

MOV #PISTRT, CDSTRT+CDX*PI ; Set address of start routine 

Default terminal type to VT100 



1* 



TST 

BNE 
MOV 

Finished 

RETURN 



ITRMTP(Rl) ; Is a terminal type specified? 

1* ; Br if yes 

#VT100, ITRMTP<Rl);Set default terminal type to VT100 



TSXPRO — 
PISTRT — 

i 

2 
3 
4 
5 
6 
7 
8 
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9 001354 
10 
11 
12 

13 001354 

14 001360 
15 

16 
17 

15 001362 
19 001366 
20 

21 

22 

23 001370 

24 

25 

26 

27 001374 

28 

29 

30 

31 

32 

33 

34 001376 

35 

36 

37 

38 001376 

39 

40 

41 

42 001404 

43 

44 

45 

46 001410 

47 

48 

49 

50 001416 



005237 000056' 
003005 



004737 002000 ' 
103402 



004737 001420' 



000207 



. SBTTL PISTRT — Start output to video screen 



PISTRT is called after a character is placed in the output ring 
buffer to initiate transmission to the video screen 

Inputs: 
Rl = Line index number of line being started. 

PISTRT: 

See if we have already started transmitter during this clock period 



INC 
BGT 



PISCNT 
9* 



;Have we already started during elk interval? 

> Br if yes 



Do not allow output to the console to consume the entire system. 



CALL PIQUIT 
BCS 9* 



; Is it time to suspend output? 
; Br if yes 



; Start transmitter 



012737 000017 000072' 



004737 001420' 



012737 177777 000056' 



000207 



> Start output 

CALL PI GO 

i 

; Finished 
9*: RETURN 

.SBTTL PIDRIV — Clock driven PI transmitter routine 

i —————————— —____ ——___ —————————— — ———————————————————————————————— .— — . 

; PIDRIV is called periodically from the clock interrupt routine 

; to force output to the PI console. 

> 

PIDRIV: 

i 

; Reset output character suspend count 

i 

MOV #MAXP0C, PIMOC i Reset output character count 

i 

i Start output to PI 
> 

CALL PIGO ; Start the transmitter 

i 

> Reset flag saying if transmitter has been started during clock interval 

i 

MOV #-l> PISCNT > Reset counter 
> 

> Finished 
j 

RETURN 
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001420 
001424 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 001432 

12 001436 
13 

14 
15 
16 

17 001440 

18 001442 

19 001446 

20 001454 

21 001460 

22 001462 

23 001464 
24 

25 

26 

27 001466 

28 

29 

30 

31 001474 

32 001500 

33 001502 

34 001506 

35 001512 

36 001520 

37 001522 

38 001526 

39 001530 

40 001536 
41 

42 
43 

44 001544 

45 001550 

46 001556 



SBTTL PIGO 



— Start PI transmitter 



013746 
013737 



005777 
001013 



OOOOOOG 
000052 ' 



176370 



OOOOOOG 



PIGO is called to enable a transfei — done interrupt which will start 
transmission to the PI console. 

PIGO: MOV @#KPAR5, -(SP) i Save current PARS mapping 
MOV PIBASE, @#KPAR5 ; Set up PARS to map to PI 



010446 
013704 

004774 
103375 
012604 
000427 



000044 ' 



OOOOOOG 



005737 
001021 
005237 
010677 
032777 
001011 
005777 
001003 
052777 
012777 



012637 
000207 



000054 ' 

000054 ' 

176312 

040000 

176274 

040000 
100000 



OOOOOOG 



176276 



176260 
176254 



See if output to the PI handler has been suspended 



TST 
BNE 



©PIGOFL 
1* 



.Has PI output been suspended? 
; Br if not 



Output to the PI handler has been suspended. 

Consume all pending output characters and then return. 



4*: 



MOV 


R4, -<SP) 


MOV 


PILINE, R4 


DISABL 




CALL 


@L0UTIR<R4) 


BCC 


4* 


MOV 


<SP>+, R4 


BR 


9* 



Get line index number 

## Disable interrupts ## 

Get next char for PI 

Loop till all characters consumed 



; Output to PI handler is not suspended 

i 

1*: DISABL ; > ; ** Disable interrupts ** 

» See if me have already triggered a PI interrupt 



2$: 



TST 
BNE 
INC 
MOV 
BIT 
BNE 
TST 
BNE 
BIS 
MOV 

Finished 



9*: 



MOV 

ENABL 

RETURN 



PIOIFL 

9* 

PIOIFL 

SP, SVDFLAG 

#VP*DOI, @*VDCSR 

9* 

©PRIOO 

2* 

#VP$DOI, @*VDCSR 

#100000, SREENAB 



(SP)+, @#KPAR5 



Have we already triggered an output int? 

Br if output interrupt active now 

Set flag saying output int active 

Tell VDCURS that buffer is not empty 

Is end-of-transf er interrupt enabled? 

Br if yes 

Has video said to leave it alone? 

Br if yes 

Generate end-of-transf er interrupt 

Tell video to turn on interrupts when ready 



ii Restore PARS mapping 
»i## Enable interrupts *# 



TSXPRO 
PIVTIR 



3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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SBTTL PIVTIR — Video end of transfer interrupt 



001560 



001560 
001564 
001566 



004537 
000140 
010046 



OOOOOOG 



001570 005237 000054' 



001574 
001602 
001610 



013737 000052' 
012777 100000 
042777 040000 



OOOOOOG 

176210 

176200 



001616 
001622 
001626 



001630 
001634 
001636 
001640 



001642 
001646 
001650 



013704 000044' 
004737 002000 ' 
103431 



OOOOOOG 



004774 
103423 
010005 
012600 



004537 OOOOOOG 

OOOOOOG 

010046 



001652 013737 000052' OOOOOOG 



001660 
001662 
001670 
001676 
001702 



010500 
052764 
042764 
004777 
000412 



OOOOOOG 
OOOOOOG 
176102 



OOOOOOG 
OOOOOOG 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO, -(SP) 



PIVTIR is jumped to from the video end-of-transf er interrupt. 

PIVTIR: 

Do . INTEN to drop priority to 4 

; Do standard interrupt entry 
i Prior i ty = 4 
i Save RO 

Set flag saying output interrupt is in progress 

INC PIOIFL i Doing output interrupt processing 

Disable transfer done interrupt 

MOV PIBASE, @#KPAR5 ; Map kernel PAR 5 to the PI handler 
MOV #100000; @REENAB ; Set flag to reenable transfer-done int 
BIC #VP*DOI, @*VDCSR /Disable transfer-done interrupt 

Limit the number of consecutive characters sent to the console 
to prevent the PI output processing (which is compute bound) from 
consuming 100% of the machine. 

i Get line index number of console line 
i Time to suspend output? 

; Br if yes 

Get the next character to transmit. 

; Get next char for line 
; Br if no character available 
; Get char to transmit to R5 
; Restore RO before ute fork 



f 



MOV 


PILINE, R4 


CALL 


PIGUIT 


BCS 


2* 



CALL 


@L0UTIR(R4) 


BCS 


1* 


MOV 


RO, R5 


MOV 


(SP)+, RO 



There is another character to transmit. 



Now fork 



JSR 
. WORD 
MOV 



R5, FORK 
FP*PIO 
RO, -(SP) 



Map PAR5 to the PI handler 
MOV PI BASE, @#KPAR5 



; Fork to get to priority 
; Fork priori ty 
i Save RO 



i Map kernel PAR 5 to the PI handler 



Enter PI handler to transmit the character 

MOV R5, RO i Get char to transmit 

BIS #*XCHAR, LSW3(R4)i Set transmitter busy flag 

BIC #*OITIM, LSW5(R4); Start output interrupt timer 

CALL GPIXOCH ;Call routine to transmit the character 

BR 9* ; Finished 

No character is available for transmission 



TSXPRO - 


— TSX-Plus PROxxx Routi 


MACRO V05. 05 


Friday 


20 


-Jan-89 1 


PIVTIR - 


— Video 


end of 


transfer 


interru] 


3t 










58 


001704 


012737 


000017 


OO0072 ' 


1*: 




MOV 




ttMAXPOC, 


59 


001712 


042764 


OOOOOOG 


OOOOOOG 


2$: 




BIC 




#*XCHAR, 


60 


001720 


005077 


176100 








CLR 




©VDFLAG 


61 


001724 


005077 


176070 








CLR 




SREENAB 


62 










> 










63 










> 


Finished 






64 










i 










65 


001730 


005037 


000054 ' 




9*: 




CLR 




PIOIFL 


66 


001734 


012600 










MOV 




<SP)+, RO 


67 


001736 


000207 










RETURN 
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Reset output char limit count 
Say transmitter is not busy 
Tell VDCURS that buffer is empty 
Tell video not to turn on interrupts 



i Say output interrupt not in progress 



TSXPRO - 
PINDCH - 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
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-- Get next output character for console 



001740 010446 

001742 013704 000044' 



001746 004737 002000' 
001752 103410 



001754 

001762 004774 OOOOOOG 

001766 



001774 012604 
001776 000207 



SBTTL PINDCH 



Get next output character for console 



PINDCH is called from within the VIDEO handler to try to get another 
character to send to the console terminal. 



Outputs: 
C-flag cleared ==> a character is available. 
C-flag set ==> No more characters available. 
RO = Character to send if C-flag is cleared. 



PINDCH: MOV 
MOV 



R4, -<SP> 
PILINE, R4 



;Get line index number of console 



Limit the number of consecutive output characters to prevent thi 
PI output processing <which is compute bound) from completely 
dominating the system. 



CALL 
BCS 



PIQUIT 
9* 



> Time to suspend output? 
> Br if yes 



Call line-dependent routine to try to get another output character 



1*: 



DISABL 

CALL 

ENABL 



@L0UTIR(R4) 



iii#* Disable interrupts for LOUTIR •**• 
; ; ; Get next character for line 
; ## Enable interrupts ** 



Finished 



9*: 



MOV 
RETURN 



<SP)+, R4 



< 
i 
f 
I 
I 
I 
i 
I 

c 

4 

i 

i 

I 

4 

i 

4 

< 

i 

i 

i 

i 



t 

i 

< 

i 
i 



005337 
003002 
000261 
000401 
000241 



000207 
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PIQUIT — Check output character limit 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 002000 
14 
15 
16 

17 002000 105737 OOOOOOG 

18 002004 001013 

19 002006 005737 OOOOOOG 

20 002012 001010 

21 002014 105737 OOOOOOG 

22 002020 001412 

23 002022 013700 000044' 

24 002026 005760 OOOOOOG 

25 002032 002405 
26 

27 
28 
29 

30 002034 005337 000072' 

31 002040 

32 002042 

33 002044 

34 002046 
35 
36 
37 
38 002050 
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. SBTTL PIQUIT 



Check output character limit 



This routine causes output to the console terminal to be suspended 

after a certain number of characters have been transmitted. 

The output is resumed after a timed interval. 

This is done to prevent the console terminal output processing (which 

is compute bound) from consuming 100% of the machine. 

Outputs: 
C-flag set ==> Suspend output. 
C-flag cleared --> Continue output. 

PIQUIT: 

See if there is any other pending system activity 

Scheduler cycle needed? 

Br if yes 

Fork requests pending? 

Br if yes 

Is there another executing job? 

Br if not 

Get # of job using console terminal 

Is that job cross-connected to CL line? 

Br if not 

There is some pending system activity. 
See if it is time to suspend PI output. 



TSTB 


DOSCHD 


BNE 


2$ 


TST 


FRKCQE 


BNE 


2$ 


TSTB 


CORUSR 


BEQ 


1* 


MOV 


PILINE, RO 


TST 


LXCL(RO) 


BLT 


1$ 



2*: DEC 


PIMOC 


BGT 


1* 


SEC 




BR 


9* 


1*: CLC 




i Finished 




9*: RETURN 





; Time to suspend output? 

> Br if not 

i Signal to suspend 

iSignal to continue output 



< 

< 
« 
i 
i 



TSXPRO 
PIVFIR 
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Video end of frame interrupt 



1 

*i 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



. SBTTL PIVFIR — Video end of frame interrupt 



PIVFIR is jumped to from the interrupt vector whenever a video 
end-of-f rame interrupt occurs. 



002052 



002052 004537 OOOOOOG 

002056 000140 

002060 010046 

002062 010146 

002064 010246 

002066 010346 



002070 013737 000052' OOOOOOG 
002076 004777 175704 



002102 012603 

002104 012602 

002106 012601 

002110 012600 

002112 000207 



PIVFIR: 



; Do . INTEN to 


drop priority 


JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO, -<SP) 


MOV 


Rl, -<SP) 


MOV 


R2, -<SP) 


MOV 


R3, -<SP> 


; Enter overla 


y to do the act 


MOV 


PIBASE, ®#KPAR5 


CALL 


SPIXEOF 


i Finished 




MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


MOV 


(SP)+,R1 


MOV 


(SP)+, RO 


RETURN 





; Do standard interrupt entry 
; Priority = 4 



; Map kernel PAR 5 to the PI handler 
» Do end of frame processing 



c 
< 
t 
( 
( 
i 

i 

I 

< 

< 

€ 
< 

i 

i 
!< 

i 

4 

I 

1 < 



TSXPRO 
PIKIIR 
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— Keyboard input interrupt 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



002114 



002114 004537 

002120 000140 

002122 010046 

002124 010146 

002126 010246 

002130 010346 



002132 013737 
002140 004777 



002144 012603 

002146 012602 

002150 012601 

002152 012600 

002154 000207 



002156 



OOOOOOG 



. SBTTL PIKIIR — Keyboard input interrupt 

PIKIIR is vectored to when a keyboard input interrupt occurs. 

PIKIIR: 

Do . INTEN to drop priority to 4 

i Do standard interrupt entry 
; Priority = 4 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO, -(SP) 


MOV 


R 1 , - ( SP ) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 



000052' OOOOOOG 
175644 



Enter system overlay to do the actual processing 



PIBASE, @#KPAR5 ; Map kernel PAR 5 to the PI handler 

; Process the input character 



MOV 


PIBASE, e 


CALL 


spixich 


Finished 




MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


MOV 


(SP>+, RO 


RETURN 




. SBTTL 


KBDCHR - 



Process character received from keyboard 



KBDCHR is jumped to from the PI handler when a character has been 
received and converted to ASCII. 



Inputs: 
R5 = Received ascii character. 



KBDCHR: 



002156 013746 OOOOOOG 

002162 013746 OOOOOOG 

002166 010446 

002170 013704 000044' 

002174 004777 000124' 



002200 012604 

002202 012637 OOOOOOG 

002206 012637 OOOOOOG 

002212 000207 



Save the PARS and PAR6 mapping for the handler, and then call 
the TTINPT routine to process the received character. 

i Save PARS and PAR6 mapping for PI 



; Get line index # for console line 
/Process received character 



Now restore PARS and PAR6 mapping and return to PI 



MOV 


S#KPAR5, -(SP) 


MOV 


@#KPAR6, -(SP) 


MOV 


R4, -(SP) 


MOV 


PILINE, R4 


CALL 


STTINPT 



MOV 
MOV 
MOV 
RETURN 



(SP)+, R4 
(SP)+, @#KPAR6 
(SP)+, @#KPAR5 



; Restore PAR5 and PAR6 
i Return to PI 



< 
I 
I 
I 

I 
I 
I 

€ 
I 

( 
i 

< 

i 

c 

i 

i 

4 
i 

4 

< 



TSXPRO 
PIKOIR 



TSX-Plus PROxxx Routi MACRO V05. 05 Friday 20-Jan-89 12:41 Page 38 
Output interrupt for keyboard 



. SBTTL PIKOIR — Output interrupt for keyboard 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



PIKOIR is vectored to when we receive an interrupt on completion of 
transmitting a character to the keyboard. 



002214 



002214 004537 OOOOOOG 

002220 000140 

002222 010046 

002224 010146 

002226 010246 

002230 010346 



002232 013737 000052' OOOOOOG 
002240 004777 175546 



002244 012603 

002246 012602 

002250 012601 

002252 012600 

002254 000207 



PIKOIR: 

* 

> Do . INTEN to drop priority to 4 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO, -<SP> 


MOV 


R 1 , - < SP ) 


MOV 


R2, -(SP) 


MOV 


R3, -<SP) 



; Do standard interrupt entry 
; Prior ity = 4 



Call overlay routine to do the processing 



MOV 


PIBASE, S#KPAR5 


CALL 


©PIXIOI 


Finished 




MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


MOV 


<SP>+, Rl 


MOV 


<SP)+, RO 


RETURN 





; Map kernel PAR 5 to the PI handler 
.Call overlay processing routine 



i 

( 
( 
( 
< 
< 
i 



t 

t 
t 
€ 

i 
i 
< 
< 

i 
< 
* 

( 
C 



TSXPRO - 


— TSX-Plus PROxxx Routi 


PI HAN - 

1 
2 

3 


— Simul 


ated PI 


hand ler 








4 








5 








6 








7 








S 








9 


002256 


000000 




10 


002260 


000014 




11 


002262 


000000 




12 


002264 


000000 




13 


002266 


000000 




14 


002270 


000402 




15 








16 








17 








18 


002272 


000207 




19 


002274 


000002 




20 








21 








22 








23 


002276 






24 








25 








26 








27 


002276 


013737 


000052 ' 


28 








29 








30 








31 


002304 


013700 


002266 ' 


32 


002310 


004777 


175500 


33 








34 








35 








36 


002314 


012704 


002266 ' 


37 


002320 


000137 


OOOOOOG 
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. SBTTL PI HAN 



Simulated PI handler 



The following routine is a simulated handler for the PI device. 
It is used to allow SETUP to perform . SPFUN operations on 
the PI device. 



Simulated handler header 



PIHAN: 



PILQE: 
PICQE: 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
BR 





PIINT-. 





O 

PIENTR 



Device vector 

Offset to interrupt service entry point 

Interrupt priority 

Last queue element 

Current queue element 

Enter here from system I/O queueing 



Simulated interrupt point and abort entry point 



RETURN 
RTI 



; Abort entry point 

j Fake interrupt entry point 



OOOOOOG 



PIINT: 

i 

•> Process an I/O queue request directed to the PI device 

i 

PIENTR: 

i 

; Map PAR 5 to the real PI handler 

i 

MOV PIBASE, ©#KPAR5 ; Map PAR 5 to PI handler 
> 
; Call real PI handler to process the .SPFUN 



MOV 
CALL 



PICQE, RO 
SPIXIOQ 



;Pass address of I/O queue element in RO 
i Enter handler to process the .SPFUN 



Finished processing the I/O queue request 



MOV 
JMP 



#PICGE, R4 
IOFIN 



i Set up R4 for IOFIN 

; I/O operation is completed 



i 

< 
< 
i 
i 

i 
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#•*# Printer Port Control Routines ##* 



( 

I < 
i 
< 
< 
i 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 002324 010246 
11 
12 
13 

14 002326 010137 000046' 

15 002332 012761 OOOOOOG OOOOOOG 
16 

17 
18 
19 

20 002340 012737 002620" OOOOOOC 

21 002346 012737 002772' OOOOOOC 

22 002354 012737 002776' OOOOOOC 

23 002362 012737 003024' OOOOOOC 
24 

25 
26 

27 002370 012737 002654' 000220 

28 002376 012737 000340 000222 

29 002404 012737 002516' 000224 

30 002412 012737 000340 000226 
31 

32 
33 

34 002420 005737 173406 

35 002424 112737 000102 173404 
36 

37 
38 

39 002432 116100 00000 1G 

40 002436 001007 

41 002440 012700 OOOOOOG 

42 002444 105737 OOOOOOG 

43 002450 001002 

44 002452 012700 OOOOOOG 

45 002456 004737 003024' 

46 
47 

48 

49 002462 012737 000067 173406 

50 

51 

52 

53 002470 112737 000035 173202 

54 

55 

56 

57 



. SBTTL *** Printer Port Control Routines #«•* 
. SBTTL PPINIT — Initialize the printer port 



PPINIT is called during system initialization to initialize the 
printer port. 

Inputs: 
Rl = Line index number. 

PPINIT: MOV R2, -<SP) 

Remember the line index number of the line connected to the printer port 

MOV R1,PPLINE i Remember which line connected to printer port 
MOV #CDX*PP, LCDTYP(R1 ) ; Set type of communications controller 

Set addresses of printer port routines in vector of device-dependent 
routines. 

MOV #PPSTRT, CDSTRT+CDX*PP ; Set address of start routine 

MOV #PPGDSS, CDGDSS+CDX*PP ; Address of rtn to get data set status 

MOV #PPSBRK, CDSBRK+CDX*PP ; Address of rtn to control break 

MOV #PPSSPD, CDSSPD+CDX*PP ; Address of rtn to set speed 

Connect the printer port interrupts to the service routine 

MOV #PPRINT, @#PP*RCV; Connect receiver interrupt 

MOV #340, @#PP*RCV+2 ; Set prio = 7 on interrupt entry 

MOV #PPTINT, @#PP*TRV; Connect transmitter interrupt 

MOV #340, @#PP*TRV+2 i Set prio 7 



Set up mode register 1 

3*: TST @#PP*CMR > Access command reg to reset mode reg ptr 
MOVB #PP*M1F, ®#PP*MDR; Initialize values in mode register 1 

Set speed in mode register 2 

Get line parameter values 
Br if parameter values were specified 
Default to 9600 baud 

Is a terminal connected to printer port? 
Br if yes 

Default to 4800 baud 
if: CALL PPSSPD > Set the speed in mode register 2 

Initialize the command register 

MOV #PP*CMF!PP*RE>@#PP*CMR > Initialize command register 
Enable receiver interrupts 

MOVB #IM*CRM!IM*PPR,@#ICOCSR J Clear IRR&IMR flags for receiver 

Disable transmitter (set mask bit in IMR), but raise a transmitter 
request so we will get an interrupt by clearing the mask flag later. 



MOVB 


LMXPRM+KR1), RO 


BNE 


1* 


MOV 


#S9600, RO 


TSTB 


PPTERM 


BNE 


1* 


MOV 


#S4800, RO 


CALL 


PPSSPD 
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PPINIT — Initialize the printer port 

58 002476 112737 000076 173202 MDVB #IM*SM ! IM*PPT, @#ICOCSR ; Set interrupt mask flag in IMR 

59 002504 112737 000136 173202 MDVB #IM4SR ' IM3.PPT. £#IC0CSR ; Raise interruot requ*** -flag in IRR 

60 i 

61 : Finished 

62 ; 

63 002512 012602 9*: MOV (SP)+, R2 

64 002514 000207 RETURN 



TSXPRO 
PPT INT •- 

1 

o 



TSX-Plus PROxxx Routi 
- Transmitter interrupt 



3 
4 

5 002516 

6 002520 

7 002522 

8 002526 
9 

10 

11 

12 002532 

13 

14 

15 

16 002540 

17 

IS 

19 

20 002544 

21 

22 

23 

24 

25 

26 

27 

28 

29 002560 

30 002566 

31 002574 
32 

33 

34 

35 002600 

36 

37 

38 

39 002606 

40 002612 

41 002614 

42 002616 
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. SBTTL PPTINT — Transmitter interrupt 
Interrupt service routine for printer port transmitter interrupts. 



010046 
010446 
013746 
005037 



OOOOOOG 
0000000 



PPTINT: MOV 
MOV 
MOV 
CLR 



112737 000076 173202 



013704 000046' 



042764 OOOOOOG OOOOOOG 



002552 
002556 



004774 
103413 



052764 
042764 
110037 



OOOOOOG 



OOOOOOG 
OOOOOOG 
173400 



OOOOOOG 
OOOOOOG 



112737 000056 173202 



RO, -(SP) 
R4, -<SP) 
INTPRI, -<SP) 
INTPRI 



iSave current interrupt priority 
; Say running priority = 7 



Disable interrupts from transmitter 

MOVB #IM*SM! IM*PPT, @#ICOCSR > Set interrupt mask for transmitter 
Get number of line connected to printer port 

MOV PPLINE, R4 j Get index # of line connected to printer 
Say line is no longer transmitting a character 

BIC #$XCHAR> LSW3<R4>; Say line no longer transmitting a character 
Get next character to transmit 



CALL @L0UTIR(R4) 
BCS 1* 



i Get next character to transmit 
; Br if no character available 



012637 
012604 
012600 
000002 



OOOOOOG 



Transmit the character contained in RO 

BIS #*XCHAR, LSW3<R4>; Set transmitter busy flag 

BIC #*OITIM> LSW5(R4); Start timer to catch lost interrupts 

MOVB R0» e#PP*DBR > Transmit the character 

Enable transmitter interrupts 

MOVB #IM*CM! IM*PPT, @#ICOCSR ; Clear interrupt mask flag 

Finished. Return from interrupt 

1*. MOV <SP)+, INTPRI ; Restore interrupt priority 



MOV 


<SP)+, INTPRI 


MOV 


<SP)+, R4 


MOV 


(SP)+, RO 


RTI 





TSXPRO - 
PPSTRT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
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- Start output to printer port 
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002620 
002626 
002630 
002636 
002644 
002652 



. SBTTL PPSTRT — Start output to printer port 

Subroutine called to attempt to start output for the printer port. 
Enable transmitter interrupt. 
Rl = Physical line number. 



032761 
001011 
112737 
1 1 2737 
112737 
000207 



0000000 000000G PPSTRT: 



000076 
000136 
000056 



173202 
173202 
1 73202 



1*: 



BIT 

BNE 

MOVB 

MOVB 

MOVB 

RETURN 



#*XCHAR, LSW3(R1) 

1* 

#IM*SM! IM*PPT, @#ICOCSR 

#IM*SR! IM*PPT, e#ICOCSR 

#IM$CM! IM*PPT, @#ICOCSR 



Is the transmitter busy now? 

Br if yes 

Set interrupt mask bit 

Set interrupt request flag 

Clear interrupt mask flag for 



xmitter 



< 
I 
I 

< 
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PPRINT — Receiver interrupt 

1 

P 

3 

4 

5 002654 

6 

7 

S 

9 002654 004577 000130' 
10 
11 
12 
13 

14 002660 
15 
16 
17 

15 002664 
19 002670 
20 
21 



013704 000046' 
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. SBTTL PPRINT — Receiver interrupt 

• t ™ _ . — — — _ — —.«--«.— «.«,«.„— — — — —.— —. — —.—■—.— — — -.—.—. — — —.—. — — — —— — — — — «- — «- — .— -™-* — — — «-«-.«-— .— 

; Interrupt service routine for printer port receiver interrupt. 

PPRINT: 

; Call routine to save R0> Ri; R4, and R5. 

JSR R5, (2TTRSAV ; Save some registers 

; RO, Rl, R4 and R5 are now available. 

> Set number of line connected to printer port. 

* 

MOV PPLINE.R4 ; Get line index number 
i 
; Get the character from the receiver 



113705 
042705 



173400 
177400 



MOVB @#PP*DBR,R5 
BIC # A C<377>, R5 



; Get the received character 
;Kill sign extension 



Set flags in R5 to simulate status flags returned by DL11 receiver 



23 002674 

24 002702 

25 002704 

26 002710 

27 002716 

28 002720 

29 002724 

30 002732 

31 002734 
32 

33 
34 

35 002740 

36 002744 

37 002746 
38 

39 
40 

41 002754 

42 002760 
43 

44 

45 

46 002762 

47 

48 

49 

50 002770 



032737 
001402 
052705 
032737 
001402 
052705 
032737 
001402 
052705 



032705 
001403 
052737 



004777 
000403 



000010 

OOOOOOC 
000040 

OOOOOOC 
000020 

OOOOOOC 



173402 
173402 1*: 
173402 2*: 



BIT #PP*PE, @#PP*STR ;Was a parity error detected? 

BEG 1* ; Br if not 

BIS #RBERR!RCVPAR, R5; Set parity error flag 

BIT #PP*FE/ fi#PP*STR ; Was a framing error detected? 

BEG 2* i Br if not 

BIS #RBERR!FRMERR, R5; Set framing error flag 

BIT #PP*OE, @#PP$STR ;Did an overrun error occur? 

BEG 3* ; Br if not 

BIS #RBERR!OVRRUN, R5; Set overrun error flag 



OOOOOOG 3*: 

000020 173406 

000124' 4$: 



Clear error flags in receiver 

BIT #RBERR, R5 i Were any errors detected? 

BEG 4* > Br if not 

BIS #PP*RE, @#PP*CMR i Clear error flags 

Call TTINPT to process the character we received 



CALL 
BR 



©TTINPT 
9* 



;Enter character input routine 
; Return from interrupt 



112737 000115 



000207 



; We got an interrupt but no character was available 

i 

173202 6*: MOVB #IM*CR ! IM*PPR> @#ICOCSR ; Clear interrupt request flag 

i 

i Return from interrupt 

9*: RETURN ; Return from interrupt 
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PPGDSS — Get data set status for printer port 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 

13 002772 005000 
14 
15 
16 
17 002774 000207 



. SBTTL PPGDSS — Get data set status for printer port 

This is the device-dependent routine for the printer port which 
returns generic flags indicating the status of the data set for 
this line. 

Inputs: 
Rl = Physical line index number 



Outputs: 
RO = Generic status flags 



PPGDSS: CLR 
Finished 

RETURN 



RO 



Say no ring, carrier, or DTR 



TSXPRD 
PPSBRK 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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— Control break transmission 



SBTTL PPSBRK 



Control break transmission 



002776 



002776 032700 OOOOOOG 
003002 001404 



003004 152737 000010 173406 
003012 000403 



PPSBRK is called to start or stop transmitting a break character 
to the printer port. 

Inputs: 
Rl = Physical line index number. 
RO = Break control flag <MS*BRK) 

PPSBRK: 

See if we are to start or stop sending a break 



4 
< 



BIT #MS*BRK, RO 
BEQ 1* 



i Start or stop sending break? 
i Br to stop 



Start sending a break character 

BISB #PP*FB, @#PP*CMR ; Start sending a break 
BR 9* 



; Stop sending a break character 
003014 142737 000010 173406 1*: BICB #PP*FB, @#PP*CMR ; Stop sending a break 

i 

i Finished 
003022 000207 9*: RETURN 



TSXPRO 
PPSSPD 
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— Set transmission speed for printer port 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



003024 010346 



003026 110061 0000010 



003032 012703 000102 

003036 032700 0000000 

003042 001003 

003044 052703 000014 

003050 000402 

003052 052703 000010 

003056 032700 0000000 

003062 001407 

003064 052703 000020 

003070 032700 OOOOOOG 

003074 001002 

003076 052703 000040 

003102 

003110 105737 173406 

003114 110337 173404 



003120 042700 OOOOOOC 

003124 052700 000260 

003130 110037 173404 
003134 



003142 012603 
003144 000207 



. SBTTL PPSSPD — Set transmission speed for printer port 

PPSSPD is called to set the transmission speed for the printer port. 

Inputs: 
RO = Speed code. 
Rl = Physical line index number. 

PPSSPD: MOV R3, -<SP) 

Save new parameter flags for line 

MOVB RO, LMXPRM+KRi) s Save new flags for line 

Build value to store in mode register 1 (char length and parity) 

Get standard mode register 1 flags 

7 bit characters wanted? 

Br if yes 

Select 8 bit characters 



2*: 
3*: 



1*: 



MOV 


#PP*M1F, R3 


BIT 


#LP*7BT, RO 


BNE 


2* 


BIS 


#PP$8BT, R3 


BR 


3* 


BIS 


#PP*7BT, R3 


BIT 


#LP*PAR, RO 


BEG. 


1$ 


BIS 


#PP*PAR> R3 


BIT 


#LP*ODD, RO 


BNE 


1* 


BIS 


#PP*EVN, R3 


DISABL 




TSTB 


@#PP*CMR 


MOVB 


R3, @#PP*MDR 



Select 7 bit characters 

Parity wanted? 

Br if not 

Enable parity 

Odd parity wanted? 

Br if yes 

Select even parity 

; -, ## Disable interrupts ** 

; ; Access command reg to reset mode reg ptr 

; ; Store value into mode register 1 



Store baud rate code into mode register 2 



BIC 


# A C<LP*SPD>, RO 


BIS 


#PP*M2F, RO 


MOVB 


RO, @#PP*MDR 


ENABL 




Finished 




MOV 


<SP>+, R3 


RETURN 





Clear all but baud rate code 
Set standard flags for mode register 2 
Store value into mode register 2 
## Enable interrupts ** 



i 



i 

€ 
i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 003146 
10 
11 
12 

13 003146 

14 003152 
15 

16 
17 

18 003160 

19 003166 

20 003174 

21 003202 

22 003210 

23 003216 

24 003224 

25 003232 
26 

27 
28 

29 003240 

30 003246 

31 003254 

32 003262 
33 

34 
35 

36 003270 

37 003274 

38 003300 

39 003302 

40 003304 

41 003306 

42 003310 

43 003314 

44 003320 

45 003324 

46 003330 

47 003334 

48 003340 

49 003344 

50 003350 

51 003354 

52 003360 

53 003364 

54 003366 

55 003372 
56 

57 



010137 
012761 



012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 



012737 
012737 
012737 
012737 



012700 
112710 
000240 
000240 
O0024O 
000240 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
116100 
001002 
012700 
004737 



. SBTTL ##* Communications Port Control Routines *** 
. SBTTL CPINIT — Communications port initialization 

Perform initialization for the communications port. 

Inputs: 
Rl = Index number of time-sharing line connected to comm port 



CPINIT: 



000050 ' 
0000000 OOOOOOG 



003772 ' 
004060 ' 
004122' 
004210' 
004276 ' 
004346 ' 
004374 ' 
004462 ' 



OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 



003504' 000210 

000340 000212 

003504' 000214 

000340 000216 



173302 
000030 



000300 
000004 
000104 
000003 
000001 
000005 
000010 
000002 
000000 
000020 
00000 1G 

OOOOOOG 
004462 ' 



Remember which line is connected to comm port 

MOV R1,CPLINE ; Remember line index number 

MOV #CDX*PC, LCDTYP(Rl) i Set type of communications controller 

Set addresses of communication port device-dependent routines 

MOV #CPSTRT, CDSTRT+CDXSPC ; Set address of start routine 

MOV #CPCLOK, CDCLOK+CDX*PC ; Set address of timer-driven routine 

MOV #CPXOFF, CDSXOF+CDX*PC ; Routine to send XOFF 

MOV #CPXON, CDSXON+CDX*PC ; Routine to send XON 

MOV #CPGDSS, CDGDSS+CDX*PC ; Routine to get data set status flags 

MOV #CPSDSS, CDSDSS+CDX*PC ; Routine to do data set control 

MOV #CPSBRK, CDSBRK+CDX*PC > Routine to control break transmission 

MOV #CPSSPD, CDSSPD+CDX*PC ; Routine to set transmission speed 

Connect to interrupt vectors 

MOV #CPCINT, @#CP*RTV; Receiver/transmitter interrupt 

MOV #340, @#CP*RTV+2 ; Set prio ■ 7 

MOV #CPCINT, @#CP*MCV; Modem change interrupt 

MOV #340, @#CP*MCV+2 ; Set prio = 7 



Initialize values in CSR A 



1*: 



MOV 


#CP*CAR, RO 


MOVB 


#CP*CR, (RO) 


NOP 




NOP 




NOP 




NOP 




MOVB 


#300, (RO) 


MOVB 


#CP*WR4, (RO) 


MOVB 


#CP*AW4, (RO) 


MOVB 


#CP*WR3, (RO) 


MOVB 


#CP*AW3, (RO) 


MOVB 


#CP*WR5, (RO) 


MOVB 


#CP*AW5, (RO) 


MOVB 


#CP*WR2, (RO) 


MOVB 


#0, (RO) 


MOVB 


#CP*RES, (RO) 


MOVB 


LMXPRM+KR1) 


BNE 


1* 


MOV 


#S9600, RO 


CALL 


CPSSPD 



RO 



;Get pointer to CSR A 

; Reset the channel 

; Delay time for channel clear operation 



Reset transmitter underrun condition 

Select write register 4 

16x clock rate, 1 stop bit, asynch 

Select write register 3 

Enable receiver and set 8-bit char len 

Select write register 5 

8-bit char, enable transmitter 

Select write register 2 

Store all zero in WR2 

Reset external interrupts 

Get flags for line 

Br if speed specified 

Default to 9600 baud 

Set speed, parity, character length 



Initialize values in CSR B 
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< 



58 

59 003376 

60 003402 

61 003406 

62 003412 

63 003416 

64 003422 
65 

66 
67 

65 003126 

69 003434 

70 003442 

71 003450 

72 003456 

73 003464 

74 003472 

75 003474 
76 

77 
78 
79 003502 



012700 
112710 
112710 
112710 
112710 
112710 



1 1 2737 
112737 
1 1 2737 
1 1 2737 
152737 
032761 
001003 
1 52737 



000207 



1 73306 
000030 
000002 
000000 
000001 
000004 



MOV 


#CP*CBR, RO 


MOVB 


#CP*CR, <R0) 


MOVB 


#CP*WR2, <R0) 


MOVB 


#0, (RO) 


MOVB 


#CP*WR1, <R0> 


MOVB 


#4, (R0> 



Get pointer to CSR B 

Reset the channel 

Select write register 2 

Set as vector base 

Select write register 1 

Store value specified in ref manual 



Enable interrupts 



173202 
173310 
173302 
173302 
173310 
0000000 0000000 



000033 
000000 
000001 
000032 
000010 



000020 173310 



?*: 



MOVB 

MOVB 

MOVB 

MOVB 

BISB 

BIT 

BNE 

BISB 

Finished 

RETURN 



#IM*CRM! IM*CPD, S#ICOCSR ; Clear interrupt mask 

#0, @#CP*MOR .Initialize modem control register 

#CP*WR1, @#CP*CAR ; Select CSR A write register 1 

#CP$RIE!CP*TIE> @#CP*CAR ; Enable receiver and transmitter ints 

#CP*RTS, @#CP*MOR; Set RTS 

#*PHONE, ILSW2(Ri>; Is this a dial-up line? 

2* ; Br if yes — don't set DTR yet, wait for 

#CP*DTR, @#CP$MOR; Set DTR 



ring 



I 

I 
I 
I 
I 
f 
I 
I 

c 

t 

{ 
i 

4 

i 
i 

< 

« 

i 
< 



i 
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003504 
003506 
003514 
003520 
003522 
003526 



003532 
003534 
003536 
003540 
003542 
003544 
003546 
003550 



003560 



0.10046 
112737 
1 1 3700 
006200 
042700 
000170 



003572' 
003572' 
003572' 
003572 ' 
003672 ' 
003564 ' 
003604 ' 
003552' 



112737 
000137 



000002 
173306 

177761 
003532 ' 



000060 
003604 ' 



173306 



173302 



003564 112737 000020 17330. 



003572 
003600 
003602 



1 1 2737 
012600 
000002 



. SBTTL CPCINT 



Receiver/Transmitter interrupt routine 



CPCINT is the interrupt entry point for both receiver and transmitter 
interrupts. 



CPCINT: MOV 
MOVB 
MOVB 
ASR 
BIC 
JMP 



RO, -<SP> ; Get a work register 

#CP*RR2> @#CP*CBRi Select CSR B read register 2 

@#CP*CBR, RO i Get the interrupt flags from RR2 

RO j Get value as word table index 

# A CCi6>> RO ; Clear all but interrupt code flags 

@CPIVEC(RO) i Jump to appropriate interrupt service rtn 



i 

< 

< 



Jump vector based on interrupt type 



CPIVEC: . WORD CPIERR 

. WORD CPIERR 

. WORD CPIERR 

. WORD CPIERR 

.WORD CPITR 

. WORD CPIESC 

. WORD CPIREC 

. WORD CPISRC 



- Invalid 

1 - Invalid 

2 - Invalid 

3 - Invalid 

4 - Transmitter buffer emtpy 

5 - External status change 

6 - Received character 

7 - Special receiver condition 



Special receiver condition interrupt 



CPISRC: MOVB 
JMP 



#CP$ER> @#CP*CAR j Reset error status flags 

CPIREC i Process any character we got with errors 



External status change interrupt processing 

CPIESC: MOVB #CP*RES, @#CP*CAR; Reset external status 

Invalid interrupt code. 

Reset interrupt status and return. 



000070 173302 CPIERR: 



MOVB #CP*EI, €#CP*CAR ; Declare end of interrupt 

MOV <SP)+, RO 

RTI ; Return from interrupt 
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7 
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21 
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— Received character from comm port 



003604 012600 



003606 004577 000130 



. SBTTL CPIREC — Received character from comm port 

CPIREC is the interrupt service routine called when u>e get an 
interrupt from the comm port saying that it has received a character. 

On entry, RO is on the stack. 

CPIREC: MOV <SP)+, RO ; Restore RO 

Call routine to save RO, Ri, R4, and R5 

JSR R5, STTRSAV > Save registers 

RO, Ri, R4 and R5 are available. 
See if a framing error uas detected 



003612 005005 

003614 112737 000000 173302 

003622 113704 173302 

003626 132704 000200 

003632 001402 

003634 052705 OOOOOOG 

003640 112737 000020 173302 3*: 



CLR R5 /Build character and flags in R5 

MOVB #CP*RRO, @#CP*CAR; Select read register 

MOVB @#CP*CAR, R4 ; Get contents of read register 

BITB #CP*BR, R4 j Was a break detected? 

BEQ 3* ; Br if not 

BIS #FRMERR, R5 ; Set framing error flag 

MOVB #CP*RES,@#CP*CAR; Reset register O flags 



003646 153705 173300 



00365^ 



112737 000070 173302 



003660 013704 000050' 



003664 004777 000124' 



003670 000207 



Get the character from the receiver 

BISB @#CP*DBR, R5 > Get the received character 
Reenable interrupts from receiver 

MOVB #CP*EI, @#CP*CAR ; Declare end of interrupt 
Get number of line connected to communications port 

MOV CPLINE, R4 ; Get line index number 
Call TTINPT to process the character 

CALL STTINPT i Enter routine to process the character 
Return from interrupt 

RETURN j Return from interrupt through TTRSAV 



TSXPRO 
CPITR 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 

i 1 

j. *. 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



003672 
003674 
003700 



003704 
003710 
003716 
003724 



003732 
003736 



003740 
003746 
003754 



003760 
003764 
003766 
003770 



010416 
013746 
005037 



013704 
042764 
112737 
112737 



004774 
103410 



052764 
042764 
1 1 0037 



012637 
012604 
012600 
000002 



. SBTTL CPITR — Transmitter interrupt 



CPITR is the interrupt service routine for the communications port 
transmitter. 



On entry, RO is on the stack. 



OOOOOOG 
OOOOOOC 



000050 ' 
OOOOOOG 
000050 
000070 



OOOOOOG 



CPITR: MOV R4, -<SP> 

MOV INTPRI, ~<SP> 
CLR INTPRI 



; Stack R4 also 

; Save current interrupt priority 

; Say running interrupt priority is 7 



OOOOOOG 
1 73302 
173302 



Say that line is no longer transmitting a character 

MOV CPLINE>R4 ; Get # of line connected to comm port 

BIC #*XCHAR, LSW3<R4>; Clear transmitting-character flag for line 

MOVB #CP*RTI, @#CP*CAR; Reset transmitter interrupt flag 

MOVB #CP*EI, ®#CP*CAR > Declare end of interrupt 

Get next character to transmit 



CALL eL0UTIR(R4) 
BCS 9* 

Transmit the character 



iGet next char to transmit 
; Br if no more chars to send 



OOOOOOG 
OOOOOOG 
173300 



OOOOOOG 



OOOOOOG 
OOOOOOG 



9*: 



BIS 
BIC 
MOVB 

Finished 

MOV 
MOV 
MOV 
RTI 



#*XCHAR, LSW3<R4)i Say a character is being transmitted 
#*OITIM> LSW5<R4>; Start timer to catch lost interrupts 
ROi @#CP*DBR > Transmit the character 



(SP)+, INTPRI 
<SP)+, R4 
<SP>+, RO 



; Restore interrupt priority level 
; Return from interrupt 






TSXPRO 
CPSTRT 
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— Start output to communications port 



4 
< 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



. SBTTL CPSTRT — Start output to communications port 
CPSTRT is called to initiate output to the communications port. 
Rl = Line index number of line being started. 



003772 010046 
003774 010446 



003776 



CPSTRT: MOV 
MOV 



RO, -<SP> 
R4, -<SP) 



Disable communications port interrupts 

DISABL ;;>Disable interrupts 

See if the communications port transmitter is already busy 



004004 032761 OOOOOOG OOOOOOG 
004012 001014 



004014 010104 

004016 004774 OOOOOOG 

004022 103410 



004024 052761 OOOOOOG OOOOOOG 
004032 042761 OOOOOOG OOOOOOG 
004040 110037 173300 



004044 



004052 012604 
004054 012600 
004056 000207 



BIT #*XCHAR,LSW3<R1> 
BNE 1* 

Transmitter is idle. 

Get next character to transmit 

MOV R1,R4 

CALL ©L0UTIR<R4> 

BCS 1* 

Start transmission 

BIS #*XCHAR, LSW3<R1> 
BIC #*QITIM, LSW5<R1) 
MOVB RO, @#CP*DBR 

t 

\ Enable the transmitter interrupt 

i 

1*: ENABL 

i 

> Finished 



MOV 
MOV 
RETURN 



<SP)+, R4 
(SP>+, RO 



iii Is the transmitter busy now? 
; » ; Br if yes 



;Get line # to R4 for NEDCHR 
j Get a character to transmit 
j Br if nothing to transmit 



j Say a character being transmitted 
; Start timer to catch lost interrupt 
> Transmit the character 



Enable interrupts 
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1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



004060 



. SBTTL CPCLOK — Timer driven routine for communications port 

CPCLOK is a timer driven routine called periodically to check on 
the status of the communications port. 

Inputs: 
Rl = Line index number. 

CPCLOK: 

Check for lost output interrupts 



OOOOOOG OOOOOOG 
0000000 OOOOOOG 



004060 032761 

004066 001411 

004070 032761 

004076 001410 

004100 042761 OOOOOOG OOOOOOG 

004106 004737 003772' 

004112 052761 OOOOOOG OOOOOOG 1*: 



BIT 

BEG 

BIT 

BEG 

BIC 

CALL 

BIS 



004120 000207 



Finished 
9*: RETURN 



#*OITIM, LSW5<R1) 

1* 

#*XCHAR, LSW3(R1) 

9* 

#*XCHAR,LSW3<R1> 

CPSTRT 

#*0ITIM>LSW5<R1> 



Have me started timer interval? 

Br if not 

Are we still waiting for an interrupt? 

Br if not 

Say wait is over 

Try to restart transmitter 

Start timed interval 



< 
i 
< 
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004122 



004130 052761 OOOOOOG OOOOOOG 



004136 032761 OOOOOOG OOOOOOG 
004144 001404 



004146 052761 OOOOOOG OOOOOOG 
004154 000411 



. SBTTL CPXOFF — Transmit XOFF to communications port 

CPXOFF is called to stuff an XOFF character into the output stream 
for the communications port. 

Inputs: 
Rl = Line index number. 

CPXOFF: DISABL ; i ; ## Disable interrupts *# 

Set flag that says XOFF has been sent 

BIS #*HISTP,LSW10<Ri>; i : Remember that XOFF has been sent 

See if the transmitter is busy now 

BIT #*XCHAR, LSW3(R1)j ■> ) Is the transmitter busy now? 
BEG. 1* iiiBr if not busy now 

The transmitter is busy now. 

Set flag which will cause output character generator to send XOFF 

BIS #*SXOFF, LSWIO(RI); ; ; Set flag to cause XOFF to be sent 

BR 9* i i i 

Transmitter is not busy. 
Transmit an XOFF character. 



004156 052761 OOOOOOG OOOOOOG 1*: 
004164 042761 OOOOOOG OOOOOOG 
"=> 112737 000023 173300 



004200 

004206 000207 



9$: 



BIS 
BIC 
MOVB 

Finished 

ENABL 
RETURN 



#*XCHAR,LSW3<R1) 
#*OITIM, LSW5<R1) 
#23, @#CP*DBR 



i i Say transmitter busy 

*/ Start output interrupt timer 

//Transmit XOFF 



i *# Enable interrupts ## 



< 
I 

4 
I 
l 
I 
I 
I 
f 
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4 

4 

t 

i 
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i 

i 
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— Transmit XON to communications port 



SBTTL CPXON 



Transmit XON to communications port 



004210 



004216 042761 OOOOOOG OOOOOOG 



004224 032761 OOOOOOG OOOOOOG 
004232 001404 



004234 052761 OOOOOOG OOOOOOG 
004242 000411 



CPXON is called to stuff an XON character into the output stream 
for the communications port. 

Inputs: 
Rl = Line index number. 

CPXON: DISABL ; ; ; *# Disable interrupts ** 

Clear flag that says XOFF has been sent 

BIC #*HISTP, LSW10<R1); ;, Clear flag that says XOFF sent 

See if the transmitter is busy now 

BIT #*XCHAR,LSW3<R1>; ) ; Is the transmitter busy now? 
BEQ 1* i.iBr if not busy now 

The transmitter is busy now. 

Set flag which will cause output character generator to send XON 

BIS #*SXON, LSWIO(RI); ; > Set flag to cause XON to be sent 

BR 9* > i i 

Transmitter is not busy. 
Transmit an XON character. 



004244 052761 OOOOOOG OOOOOOG 1*; 
004252 042761 OOOOOOG OOOOOOG 
004260 112737 000021 173300 



004266 

004274 000207 



9*: 



BIS 


#*XCHAR, LSW3<R1) 


BIC 


#*OITIM, LSW5(R1) 


MOVB 


#21, S#CP*DBR 


Finished 




ENABL 




RETURN 





i Say transmitter busy 

; Start output interrupt timer 

; Transmit XON 



## Enable interrupts ## 



i 

< 
i 
i 
i 



* 



< 



i 
i 
i 
i 

( 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



004330 132737 000020 173310 

004336 001402 

004340 052700 0000000 



004344 000207 



. SBTTL CPGDSS — Get communications port data set status 

CPGDSS is called to get the data set (modem) status for the 
communications port. 

Inputs: 
Rl = Physical line index number 

Outputs: 
RO = Generic data set status flags <MS*xxx) 



004276 005000 



004300 132737 000100 173312 

004306 001402 

004310 052700 OOOOOOG 



004314 132737 000020 173312 1*: 

004322 001402 

004324 052700 OOOOOOG 



CPGDSS: CLR 



RO 



i Develop result in RO 



See if the phone is ringing 



BITB #CP*RI, @#CP*M1R ; Is the phone ringing? 

BEQ 1* i Br if not 

BIS #MS*RNG, RO ; Set ringing flag 

See if carrier is detected 

BITB #CP*CD, @#CP*M1R i Do we have carrier detect? 

BEQ 2* ) Br if not 

BIS #MS*CAR,RO > Set carrier-detect flag 

See if Data Terminal Ready is asserted 



>*: 



BITB 

BEG 

BIS 



#CP*DTR, @#CP*MORi Are we asserting DTR? 

3* i Br if not 

#MS*DTR> RO ; Remember DTR is asserted 



Finished 
3*: RETURN 



TSXPRO 
CPSDSS 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



004346 



004346 032700 0000000 
004352 001404 



004354 152737 000020 173310 
004362 000403 



. SBTTL CPSDSS — Set data set status for communications port 

CPSDSS is called to control the data set (modem) status for the 
communications port. 

Inputs: 
Rl = Physical line index number 
RO = Data set control flags (MS*xxx) 

CPSDSS: 

See if we should raise or drop Data Terminal Ready 



BIT 
BEQ 

Raise DTR 

BISB 
BR 



; Drop DTR 

i 

004364 142737 000020 173310 1*: BICB 

i 

; Finished 
i 
004372 000207 9*: RETURN 



#MS*DTR, RO 
1* 



; Raise or drop DTR? 
; Br to drop DTR 



#CP*DTR,@#CP*MOR; Raise DTR 
9* 



#CP*DTR,@#CP*MOR;Drop DTR 



TSXPRO - 
CPSBRK - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



t£>3 

24 
25 
26 
27 
28 
29 
30 
31 
32 

34 
35 



- TSX-Plus PROx 

— Control break 



004374 010246 
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SBTTL CPSBRK — Control break transmission on communications port 

CPSBRK is called to start or stop transmitting a break character to 
the communications port. 

Inputs: 
RO = Break control flag <MS$BRK) 
Rl = Physical line index number. 

CPSBRK: MOV R2, -<SP) 

Set standard flags for wr ite-reg ister 5 



004376 
004402 
004410 
004112 



004116 
004422 
004124 



004430 
004136 
004144 
004450 



004456 
004460 



012702 
132761 
001002 
052702 



032700 
001402 
052702 



000050 

0000000 00000 1G 

000140 



OOOOOOG 
000020 



MOV #CP*AW5!CP*7BT, R2 ; Standard flags and 7-bit char length 

BITB #LP$7BT, LMXPRM+1 <R1 ) i 7-bit characters wanted? 

BNE 2* i Br if yes 

BIS #CP*8BT, R2 i Select 8-bit characters 

See if we want to start or stop sending a break 



2*: 



BIT #MS*BRK,R0 

BEQ 1* 

BIS #CP*SB, R2 



i Start or stop sending break? 

; Br if stop 

; Set send-break flag 



Store parameters into control register 



1$: 



112737 

110237 



000005 173302 
173302 



012602 
000207 



9*: 



DISABL 




MOVB 


#CP*WR5, @#CP*CAR 


MOVB 


R2, @#CP*CAR 


ENABL 




Finished 




MOV 


<5P)+, R2 


RETURN 





i -, #* Disable interrupts «■# 

>; Select write register 5 

; i Start or stop sending break 
«■# Enable interrupts ## 



f 
I 

< 

< 

€ 

4 

i 

< 
I 
4 
4 
t 
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CPSSPD — Set speed for 

1 
2 
3 
4 


communi 


5 
6 
7 
8 
9 
10 004462 


010346 




11 004464 


010446 




12 004466 


010546 




13 






14 






15 






16 004470 


110061 


000001 G 


17 






IB 






19 






20 004474 


010003 




21 004476 


042703 


OOOOOOC 


22 004502 


010346 




23 004504 


072327 


000004 


24 004510 


052603 




25 004512 


110337 


173314 


26 






27 






28 






29 004516 


012704 


173302 


30 004522 


012703 


000104 


31 004526 


032700 


OOOOOOG 


32 004532 


001407 




33 004534 


052703 


000001 


34 004540 


032700 


OOOOOOG 


35 004544 


001002 




36 004546 


052703 


000002 


37 004552 


112714 


000004 


38 004556 


110314 




39 






40 






41 






42 004560 


012703 


000001 


43 004564 


012705 


000010 


44 004570 


032700 


OOOOOOG 


45 004574 


001005 




46 004576 


052705 


000140 


47 004602 


052703 


000300 


48 004606 


000404 




49 004610 


052705 


000040 


50 004614 


052703 


000100 


51 004620 






52 004626 


112714 


000003 


53 004632 


110314 




54 004634 


112714 


000005 


55 004640 


110514 




56 004642 






57 
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. SBTTL CPSSPD — Set speed for communications port 

CPSSPD is called to set the transmit/receive speed for 
the communications port. 

Inputs: 
RO = Speed code. 
Rl = Physical line index number. 



CPSSPD: MOV 
MOV 
MOV 



R3, -<SP) 
R4, -<SP) 
R5, -<SP) 



1$: 



2*: 
3$: 



MOV 


RO, R3 


BIC 


# A C<LP*SPD>» R3 


MOV 


R3, -<SP) 


ASH 


#4, R3 


BIS 


<SP>+, R3 


MOVB 


R3, @#CP*BRR 



Set baud rate in line parameter word for this line 

MOVB RO, LMXPRM+KR1) ; Save new flags for line 
Store speed value into hardware control register 



i Get all flags 

iClear all but speed code 

; Save speed code 

iShift speed value left 4 bits 

;Combine with unshifted value 

i Set baud rate in hardware register 



Get pointer to CSR A 

Get standard bits for WR4 

Is parity wanted? 

Br if not 

Set parity-enable flag 

Is odd parity wanted? 

Br if yes 

Select even parity 

Select write register 4 

Set parity control flags 



Set parity control 



MOV 


#CP*CAR, 


R4 


MOV 


#CP*AW4, 


R3 


BIT 


#LP*PAR, 


RO 


BEQ 


1* 




BIS 


#CP*PAR, 


R3 


BIT 


#LP*ODD, 


RO 


BNE 


1* 




BIS 


#CP*EVN, 


R3 


MOVB 


#CP*WR4, 


<R4) 


MOVB 


R3, (R4) 





Set character length 



MOV 


#CP*AW3, 


R3 


MOV 


#CP*AW5, 


R5 


BIT 


#LP*7BT, 


RO 


BNE 


2* 




BIS 


#CP*8BT, 


R5 


BIS 


#CP*8BR, 


R3 


BR 


3* 




BIS 


#CP*7BT, 


R5 


BIS 


#CP*7BR, 


R3 


DISABL 






MOVB 


#CP*WR3, 


<R4) 


MOVB 


R3, <R4) 




MOVB 


#CP*WR5, 


(R4) 


MOVB 


R5, <R4) 




ENABL 







iGet standard flags for WR3 
; Get standard flags for WR5 
;7 bit characters wanted? 
i Br if yes 
; Select 8 bit characters 



Select 7 bit characters 

** Disable interrupts ## 
Select write register 3 
Set length for received characters 
Select write register 5 
Set length for transmitted characters 
#* Enable interrupts ## 
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58 > Finished 

59 i 

60 004650 012605 MOV <SP>+, R5 

61 004652 012604 MOV <SP>+, R4 

62 004654 012603 MOV (SP)+, R3 

63 004656 000207 RETURN 



< 
I 

4 
€ 
< 

i 



► 



« 
( 
< 
< 



< 



! 
i < 

I 



TSXPRO 
CPSSPD - 

1 
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004660 010546 



012746 
004737 
012605 
103014 



3 
4 
5 
6 
7 
8 
9 
10 

11 004662 

12 004666 

13 004672 

14 004674 
15 

16 
17 
IS 

19 004676 

20 004702 

21 004706 

22 004710 

23 004716 

24 004722 

25 004724 
26 

27 
28 

29 004726 

30 004732 

31 004740 

32 004742 

33 004746 

34 004754 

35 004760 

36 004764 

37 004770 

38 004774 

39 005000 
40 

41 
42 

43 005004 

44 005012 

45 005020 

46 005026 

47 005034 
48 

49 
50 

51 005042 

52 005046 
53 

54 
55 

56 005052 

57 005060 



•IF NE» QPASM .Assemble if quad line unit code wanted 
. SBTTL #** Quad Serial Line Unit Routines #** 
.SBTTL GPINIT — Initialize quad serial line unit 

QPINIT is called to initialize the quad serial line unit 

QPINIT: MOV R5, -<SP> 

Determine if a quad line unit is installed 



000064 
001172 



MOV #QP*ID, -<SP> 

CALL GPRCSR 

MOV <SP)+, R5 

BCC 2* 



Stack device ID for quad line unit 
Get CSR for quad line unit 
Get returned CSR address 
Br if it is installed 



There is no quad line unit installed. 

Mark all lines associated with quad line unit as dead. 



012705 
005765 
001403 
052765 
162705 
003367 
000502 



010537 
132765 
001402 
105237 
142765 
012746 
004737 
012637 
012700 
004737 
1 1 0037 



012737 
012737 
012737 
012737 
012737 



105065 
105065 



112765 
112765 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
000002 



MOV #LSTHL, R5 

3$: TST LMXNUM(R5) 

BEG 4$ 

BIS #*DEAD, LSW3 < R 5 ) 

4$: SUB #2, R5 

BGT 3* 

BR 9* 



Get index to last line 

Is this a quad unit line? 

Br if not 

Mark line as dead 

Get next line index 

Br if more lines to do 

Finished 



000066 ' 
000004 000004 



000110 
000100 
000064 
001134 
000070 
000064 
001254 
000111 



005310 
006054 
006160 
006016 
005632' 



000132 
000172 



000360 
000360 



000004 1*: 



OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 



There is a quad line unit installed 

2$: MOV R5, QPCSR ; Save CSR address 

BITB #QP*22C> QPRMSR(R5); Do we have modem control on lines and 2? 

BEG. 1* ; Br if not 

INCB QPMODM > Remember we have modem control on two lines 

BICB #QP*IEN,QPRMSR<R5); Clear interrupt-enable bit 

MOV #QP*ID, -<SP) i Stack device ID 

CALL GPRVEC ; Get vector address 

MOV <SP)+, QPVEC ; Save vector address 

MOV #GP*ID, RO : Get device ID 

CALL GETSLT > Get slot # where device is installed 

MOVB RO, GPSLOT ; Save the slot number 

Set addresses of quad line unit device-dependent routines 

MOV #GPSTRT, CDSTRT+CDX*QP ; Start-output routine 

MOV #QPGDSSi CDGDSS+CDX*QP ; Get data set status 

MOV #QPSD5S, CDSDSS+CDXfQP ; Set data set status 

MOV #GPSBRK, CDSBRK+CDX$QP > Control break transmission 

MOV #GPSSPD, CDSSPD+CDX*QP i Set line speed 

Initialize Output Port Configuration Register 

CLRB QPROPC(RS) ;A11 bits are off in OPCR 

CLRB QPR0PC+GPRU0F(R5) ; DUART 1 



000110 
000150 



Initialize Auxiliary Control Register 

MOVB #GP*AWA» GPRACR<R5) i Initial i ze ACR 
MOVB #QP*AWA, QPRACR+GPRU0F(R5) ; DUART 1 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 



005066 112765 000063 000112 
005074 112765 000063 000152 



005102 112765 000377 000136 
005110 112765 000377 000176 



005116 012700 000030 
005122 153700 000111' 
005126 110037 173206 



005132 012605 
005134 000207 



Initialize In-fcprrupt Mask Register 

MOVB #QP*AWI, QPRIMR(R5) ilntialize IMR 
MOVB #QP*AWI, QPRIMR+GPRU0F(R5> ; DUART 1 

Initialize output port 

MOVB #377, QPRR0P(R5) i Reset all output port bits 
MOVB #377, QPRR0P+QPRU0F<R5> ; DUART 1 



Initialize interrupt controller 



9*: 



MOV 


#IM*CRM, RO 


BISB 


QPSLOT, RO 


MOVB 


RO, @#IC1CSR 


Finished 




MOV 


<SP)+, R5 


RETURN 





jGet command to clear IRR and IMR int flags 
iOr in slot number where QP controller is 
; Clear IRR and IMR flags for quad port 



TSXPRO 
QPLINE 



-- TSX-Plus PROx 
— Initialize a 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL QPLINE — Initialize a line connected to quad line unit 

QPLINE is called to initialize a specific line that is connected to 
the quad serial line unit. 

Inputs: 
Rl = Line index number. 

QPLINE: MOV R5, -<SP> 

Say this line is controlled by quad serial line unit 

MOV #CDX*QP,LCDTYP<R1> 

See if quad line unit is installed 



005136 010546 



005140 012761 000000G OOOOOOG 



005146 



005154 
005160 
005164 
005170 
005176 



005204 
005210 
005212 
005216 
005220 



005737 
001454 



016105 
110165 
016100 
013760 
013760 



105737 
001403 
032705 
001403 
042761 



000066 ' 



TST 
BEQ 



QPCSR 
9$ 



; Is quad line unit installed? 
; Br if not 



OOOOOOG 
000104' 
OOOOOOG 

000066' OOOOOOG 
000070' OOOOOOG 



Remember the TSX-Plus line index number associated with this unit line 

MOV LMXLN<R1),R5 i Get # of line within quad unit 

MOVB R1,QPLX(R5> i Store TSX-Plus line index # 

MOV LMXNUM(R1),R0 : Get mux index number 

MOV QPCSR, MXCSR<RO) ; Remember CSR address for unit 

MOV QPVEC, MXVEC(RO) > Remember vector address of unit 



005226 004737 006236 ' 



See if this line should have modem control 
000110' 
000001 
OOOOOOG OOOOOOG 3*: BIC #*PHQNE, ILSW2(R1 > ; Say line does not have modem control 

Convert line number into quad unit address 
4*: CALL QPCVLA > Convert line # to address 



TSTB 

BEQ 

BIT 

BEQ 

BIC 



QPMODM 
3* 

#1, R5 
4* 



.Are we configured for modem control? 

; Br if not — No lines have modem control 

; Is this line or 2? 

; Br if yes — Has modem control 



005232 
005240 
005246 



112765 
112765 
112765 



000020 000104 
000023 000100 
000007 000100 



005254 112765 000273 000102 



005262 112765 000052 000104 
005270 112765 000100 000104 
005276 112765 000065 000104 



At this point, 
R5 = Base address of registers for quad unit and channel. 

Initialize mode registers 1 and 2 

MOVB #QP*RPR, QPRCRA<R5)i Select mode register 1 
MOVB #023, QPRMRA<R5) i Initialize mode register 1 
MOVB #007, QPRMRA<R5) ; Initialize mode register 2 

Initialize clock select register 

MOVB #273, QPRCSA<R5) ; Initialize to 9600 baud 

Initialize receiver and transmitter 

MOVB #QP*RRX !QP*DRX !QP*DTX, QPRCRA<R5) i Reset receiver + disable 

MOVB #QP$RES, QPRCRA<R5) ; Reset error status 

MOVB #QP*RTX!QP*ERX!QP*ETX, QPRCRA(RS) ; Reset transmitter + enable 



< 
( 
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QPLINE — Initialize a line connected to quad line unit 

58 i 

59 i Finished 

60 ; 

61 005304 012605 9*: MOV <SP>+, R5 

62 005306 000207 RETURN 



i 



TSXPRO - 
QPSTRT - 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
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— Start output 

. SBTTL QPSTRT — Start output 



005310 010546 



005312 004737 006236' 



QPSTRT is called to initiate output to a line connected to the 
quad line unit. 

Inputs: 
Rl = Line index number. 

QPSTRT: MOV R5, -<SP) 

> Convert line number into quad unit address 

i 

CALL QPCVLA /Convert line # to address 

At this point* 
R5 = Base address of registers for quad unit and channel. 

See if the transmitter is already busy 



005316 

005324 032761 O00OOOG 000000G 

005332 001003 



DISABL ; 

BIT #*XCHAR,LSW3(R1>; 
BNE 1* ; 



^Disable interrupts 

i Is the transmitter busy now? 

; Br if yes 



005334 112765 000004 000104 



005342 

005350 012605 

005352 000207 



Transmitter is idle. 

Enable the transmitter which will cause an interrupt. 

MOVB #QP*ETX, QPRCRA(R5); ; ; Enable transmitter (will cause interrupt) 
Finished 



1*: ENABL 

MOV (SP)+, R5 
RETURN 



Enable interrupts 



TSXPRO • 
QPCINT ■ 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
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36 
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53 
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55 
56 
57 
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ine unit 



005354 



005354 004577 000130' 
005360 010246 
005362 010346 



005364 013703 000066 
005370 142763 000100 
005376 010301 



005400 005002 



005402 116204 000104" 
005406 001461 



005410 136263 005622 
005416 001422 



000004 



000112 



005420 004774 OOOOOOG 
005424 103411 



005426 052764 OOOOOOG 

005434 042764 OOOOOOG 

005442 110061 000106 

005446 000406 



OOOOOOG 
OOOOOOG 



SBTTL QPCINT — Interrupt from quad line unit 



QPCINT is the interrupt entry point for all interrupts from the 
quad line unit. 



QPCINT: 



Save registers RO, Rl, R4, and R5. 

TTRSAV is the standard interrupt entry routine called when processing 
received character interrupts. We always call it in the case of an 
interrupt from a quad unit line since we don't know whether the interrupt 
is from a transmitter or receiver. 



JSR R5, ©TTRSAV 
MOV R2, -<SP> 
MOV R3, -<SP> 



i Save registers 



Disable further interrupts from the quad line unit 

MOV GPCSR, R3 ; Get address of base of registers for DUART O 

BICB #QP*IEN, QPRMSR<R3) .Clear interrupt-enab le bit 

MOV R3/R1 > Get addr of base of registers for DUART 

Begin loop to determine which of the four lines needs service 

CLR R2 ; Start with line # <DUART 0, channel A) 

Get TSX-Plus line index number of this line 



1*: 



MOVB QPLX<R2),R4 
BEQ 3* 



; Get TSX-Plus line index number 
; Br if no line connected 



See if an output interrupt occurred 



BITB QPFTXR<R2), QPRISR<R3)i Is transmitter ready for another char? 
BEQ 2* i Br if not 



The transmitter is ready for another character. 
See if there is another character to transmit. 



CALL SL0UTIR(R4) 
BCS 8* 



j Get next character to transmit 
; Br if no more chars to transmit 



005450 042764 OOOOOOG 
005456 112761 000010 



OOOOOOG 
000104 



Transmit the character contained in RO 

BIS #*XCHAR,LSW3<R4>; Set transmitter-busy flag 

BIC #*0ITIM,LSW5<R4)i Start timer to catch lost interrupts 

MOVB RO, QPRTRAfRl ) ; Start transmitting the character 

BR 2* 

There are no more characters to transmit. 
Disable the transmitter 

8$: BIC #*XCHAR,LSW3(R4>; Say transmission finished 
MOVB #QP*DTX, QPRCRA<R1) i Disable the transmitter 



See if this line has received a character 



I 
I 

€ 

» € 



TSXPRO - 
QPCINT - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 
112 
113 
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— Interrupt from quad line unit 



005464 
005472 



005474 
005500 
005504 



005510 
005514 
005516 
005522 
005526 
005530 
005534 
005540 
005542 



136263 
001427 



116100 
116105 
042705 



032700 
001402 
052705 
032700 
001402 
052705 
032700 
001402 
052705 



005626' 000112 2*: 



000102 
000106 
177400 



000040 

OOOOOOC 
000300 

OOOOOOC 
000020 

OOOOOOC 



005546 004777 000124' 



005552 
005554 
005560 
005562 
005566 
005572 
005574 
005600 



005202 
020227 
101010 
062701 
020227 
001303 
062703 
000700 



000003 

000020 
000002 

000040 



005602 013703 
005606 152763 



005614 012603 
005616 012602 
005620 000207 



000066 ' 
000100 000004 



BITB 



GPFRXR(R2), QPRISR(R3); Is a received character ready? 



BEG. 3* 

Get received character 

MOVB GPRSRA<R1),R0 
MOVB QPRRRA<R1),R5 
BIC # A C<377>, R5 



; Br if not 



; Get status flags for character 
; Get the received character 
;Mask character to 8 bits 



4*: 



Set status flags in R5 to simulate status flags returned by DL11 

BIT #GP*RPE, RO ;Did we have a parity error? 

BEG 4* i Br if not 

BIS #RBERR IRCVPAR, R5; Set parity-error flags 

BIT #QP*RFE!QP*BRK, RO ; Framing error or break? 

BEG 5* ;Br if not 

BIS #RBERR!FRMERR, R5; Set framing-error flags 

5*: BIT #QP*ROE, RO ;Did an overrun occur? 

BEG 6* ; Br if not 

BIS #RBERR!OVRRUN, R5; Set overrun flags 

■> Call TTINPT to process the received character 

6*: CALL ©TTINPT ; Enter character input routine 

i 

> Check for other lines connect to the quad unit that may need service 



3*: 



INC 


R2 


CMP 


R2, #3 


BHI 


7* 


ADD 


#GPRCOF, Rl 


CMP 


R2, #2 


BNE 


1* 


ADD 


#GPRUOF, R3 


BR 


1* 



Advance line # within quad unit (0-3) 

Have we serviced all lines? 

Br if yes 

Point to registers for next channel 

Time to advance register base to DUART 1? 

Br if not 

Point to registers for DUART 1 

Go service next line 



We have serviced all four lines. 
Reenable interrupt for quad line unit. 



7*: MOV 
BISB 

Finished 

MOV 
MOV 
RETURN 



GPCSR, R3 ; Get address of base of registers for DUART O 
#GP*IEN, QPRMSR<R3> ; Set interrup t-enab le bit 



<SP)+, R3 
<SP)+, R2 



i Return through TTRSAV which restors regs 



005625 



001 
020 



Vector containing the proper bit mask to test for transmitter-ready 
in the Interrupt Status Register for each line. 

020 001 QPFTXR: .BYTE 1,20,1,20 



Vector containing the proper bit mask to test for receiver — done 
in the Interrupt Status Register for each line. 



< 



TSXPRO — TSX-Plus PROxxx Routi MACRO V05. 05 Friday 20-Jan-89 12:41 Page 62-2 
QPCINT — Interrupt from quad line unit 

114 ; 

115 005626 002 040 002 QPFRXR: .BYTE 2, 40, 2, 40 
005631 04U 

116 .EVEN 



i 
< 
< 
i 
t 
4 
4 
( 
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< 

€ 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005632 010346 
005634 010546 



005636 110061 00000 1G 



005642 004737 006236 ' 



005646 010003 

005650 042703 OOOOOOC 

005654 116303 005776' 

005660 010346 

005662 072327 000004 

005666 052603 

005670 110365 000102 



005674 032700 OOOOOOG 

005700 001403 

005702 012703 000002 

005706 000402 

005710 012703 000003 

005714 032700 OOOOOOG 

005720 001003 

005722 052703 000020 

005726 000405 

005730 032700 OOOOOOG 

005734 001402 

005736 052703 000004 

005742 

005750 112765 000020 000104 

005756 110365 000100 

005762 



005770 012605 
005772 012603 
005774 000207 



. SBTTL QPSSPD — Set speed -for quad line port 



QPSSPD is called to set the transmit/receive speed for a line 
connected to the quad serial line unit. 



Inputs: 
RO = Speed code 
Rl = Physical line index number. 



QPSSPD: MOV 
MOV 



R3, -(SP) 
R5>-(SP) 



Save info about baud rate for this line 

MOVB RO, LMXPRM+KR1) ; Save info in line table 

Convert line number into quad unit address 

CALL QPCVLA {Convert line # to address 

At this point, 
R5 = Base address of registers for quad unit and channel. 



Set transmit/receive speed 



MOV 


RO, R3 


BIC 


# A C<LP*SPD>, R3 


MOVB 


QPSPD(R3), R3 


MOV 


R3, -(SP) 


ASH 


#4, R3 


BIS 


(SP)+, R3 


MOVB 


R3, QPRCSA(R5) 



; Get control flags 

; Clear all but speed value 

i Get speed code for quad unit 

/Position speed code for receive 
iOr in transmit speed 
; Set speed for line 



Set character length and parity 



1$: 
2*: 



3$: 



4$: 



BIT 


#LP*7BT, RO 


BEQ 


1* 


MOV 


#QP*7BR, R3 


BR 


2* 


MOV 


#QP*8BR, R3 


BIT 


#LP*PAR, RO 


BNE 


3* 


BIS 


#QP*NPR, R3 


BR 


4* 


BIT 


#LP*ODD, RO 


BEQ 


4* 


BIS 


#QP*ODD, R3 


DISABL 




MOVB 


#GP*RPR, QP 


MOVB 


R3, QPRMRA( 


ENABL 




inished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


RETURN 





;7 bit characters wanted? 

; Br if not 

; Get 7 bit char flags 

; Get 8 bit char flags 

> Is parity wanted? 
> Br if yes 

i Set no-parity flag 

> Odd parity wanted? 
; Br if not 
^Select odd parity 

; ; ; *# Disable interrupts ** 
!5) ;>iSelect mode register 1 

> ; ; Set char length and parity 
; ## Enable interrupts *# 
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58 

59 

60 

61 

62 005776 
006001 
006004 
006007 
006012 
006015 

63 



Vector of values to convprt TSX-Plus standard transmit/receive 
speed codes into codes for the quad serial line unit. 



000 
002 
005 
007 
Oil 
014 



000 
003 
006 
010 
000 



001 QPSPD: . BYTE 

004 

012 

000 

013 

. EVEN 



0. , 0. i 1. » 2. , 3. , 4. , 5. , 6. , 10. ,7. ,B. ,0. ,9. ,0. , 11. , 12. 



€ 
€ 



TSXPRO - 
QPSBRK - 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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— Control break transmission to quad line unit 



006016 010546 



006020 004737 006236 ' 



006024 032700 OOOOOOG 
006030 001404 



006032 112765 000140 000104 
006040 000403 



. SBTTL QPSBRK — Control break transmission to quad line unit 

QPSBRK is called to start or stop transmitting a break character to 
a line connected to the quad serial line unit. 

Inputs 
RO - Break control flag <MS*BRK) 
Rl = Physical line index number. 

QPSBRK: MOV R5, -<SP) 

Convert line number to address of control register 

CALL QPCVLA ; Convert line # to address 

At this point, 
R5 = Base address of registers for quad unit and channel. 

See if we are to start or stop sending a break 



BIT #MS*BRK, RO 
BEQ 1* 

Start sending a break 



> Start or stop sending a break? 
; Br if stop 



MOVB #QP*SBT, QPRCRA<R5) > Start break transmission 
BR 9* 



; Stop sending a break 
> 
006042 112765 000160 000104 1*: MOVB #QP*EBT> QPRCRA(R5) ; Stop break transmission 

> Finished 



006050 012605 
006052 000207 



9*: MOV <SP>+, R5 
RETURN 
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< 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL QPGDSS 



Get data set status for line 



006054 010346 
006056 010546 



006060 004737 006260 ' 



006064 
006066 
006074 
006076 



006102 
006110 
006112 



006116 
006124 
006126 



006132 
006134 
006136 



005000 
136365 
001402 
052700 



1 36365 
001402 
052700 



136363 
001402 
052700 



012605 
012603 
000207 



QPGDSS is called to get the data set (modem) status for a line 
connected to the quad serial line unit. 

Inputs: 
Ri = Physical line index number. 

Outputs: 
RO = Generic data set status flags <MS*xxx) 



QPGDSS: MOV 
MOV 



R3, -<SP) 
R5, -<SP> 



Convert line number to address of control register 

CALL QPCVLX ; Convert line # to address 

At this point; 

R5 = Base address of registers for quad unit. 

R3 = Table index whose value depends on whether we ars accessing 
lines or 1 (DUART 0) or lines 2 and 3 (DUART 1) 
and the configuration 4/0 or 2/2. 

Line Config Value 



0/2 
1/3 
0/2 
1/3 



4/0 
4/0 
2/2 
2/2 



O 
1 
2 
3 



006144' 000132 
OOOOOOG 



006140' 000132 1*: 
OOOOOOG 



See if the phone is ringing 

CLR RO i Develop flags in RO 

BITB QPFRKR3), QPRIP(R5) ;Is the RI flag set for line? 

BEQ 1* ; Br if not 

BIS #MS*RNG, RO > Set ring status flag for return 

See if carrier is detected 

BITB QPFCD<R3),GPRIP<R5> ;Is carrier detected? 

BEQ 2* ; Br if not 

BIS #MS*CAR, RO ; Set carrier-detected flag for return 



See if Data Terminal Ready is asserted 



006150' 006154' 2*: 
OOOOOOG 



3*: 



BITB 

BEQ 

BIS 

Finished 

MOV 
MOV 
RETURN 



QPFDTR(R3),QP0P(R3) >Is DTR asserted? 



3* 
#MS*DTR, RO 



(SP)+, R5 
<5P)+, R3 



i Br if not 

■, Set DTR return flag 



Flag values to check Carrier Detect flag based on channel and config 



( 

t 
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58 

59 006140 

006143 
60 
61 
62 
63 006144 

006147 
64 
65 
66 
67 006150 

006153 
68 
69 
70 
71 006154 

006157 



004 
000 



000 

000 



004 
000 



000 
000 



010 004 QPFCD: .BYTE 4,10,4,0 

Flag values to check for line ringing 

000 010 QPFRI: .BYTE 0,0,10,0 

i Flag values to check for (or assert) Data Terminal Ready 

010 004 QPFDTR: .BYTE 4,10,4,0 

Shadow cells to hold value of output port settings 

000 000 QPOP: .BYTE 0,0,0,0 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 006160 

11 006162 
12 

13 

14 

15 006164 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 006170 

33 006174 
34 

35 
36 

37 006176 

38 006204 

39 006212 
40 

41 
42 

43 006214 

44 006222 
45 

46 
47 

48 006230 

49 006232 

50 006234 



. SBTTL QPSDSS — Set data set status 



010346 
010546 



004737 006260 



032700 
001407 



116365 
156363 
000406 



116365 
146363 



012605 
012603 
000207 



OOOOOOG 



006150' 
006150' 



000134 
006154' 



006150 
006150 



QPSDSS is called to control the data set (modem) status for a line 
connected to the quad line unit. 



Inputs: 
Rl = Physical line index number. 
RO m Data set control flags <MS*xxx> 



QPSDSS: MOV 
MOV 



R3, -<SP> 
R5, -<SP) 



Convert line number to address of control register 

CALL QPCVLX i Convert line # to address 

At this point, 

R5 = Base address of registers for quad unit. 

R3 = Table index whose value depends on whether we are accessing 

lines or 1 (DUART 0) or lines 2 and 3 (DUART 1) 

and the configuration 4/0 or 2/2. 

Line Config Value 



0/2 


4/0 





1/3 


4/0 


1 


0/2 


2/2 


2 


1/3 


2/2 


3 



See if we should raise or drop Data Terminal Ready 



000136 1*: 
006154' 



9*: 



BIT 
BEQ 

Raise DTR 

MOVB 
BISB 
BR 

Drop DTR 

MOVB 
BICB 

Finished 

MOV 
MOV 
RETURN 



#MS*DTR, RO 
1* 



i Raise or drop DTR? 
; Br to drop DTR 



QPFDTR(R3), QPRS0P(R5); Raise bit in output port 
QPFDTR(R3>, QP0P(R3); Set bit in shadow cell 
9* 



QPFDTR(R3>, QPRROP(RS); Drop bit in output port 
QPFDTR(R3),QP0P(R3)iClear bit in shadow cell 



(SP)+, R5 
(SP)+, R3 



i 



( 

> ( 
I 



) 



I 



> 



c 



< 



I 
I < 

< 
i 

i 

€ 

< 

« 

1 I 

i 

< 

< 

i < 
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QPCVLA - 

1 

2 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
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. SBTTL QPCVLA 



Convert line index into register addresses 



006236 



006236 016105 OOOOOOG 



006242 116505 006254 
006246 063705 000066 



006252 000207 



QPCVLA is called to convert a TSX-Plus line index number of a line 
connected to the quad serial line unit into an address that corresponds 
to the base of the registers for the corresponding DUART and channel. 

Inputs: 
Rl = TSX-Plus line index number 

Outputs: 
R5 = Address of base of registers for DUART and channel 
<R0 is preserved) 

QPCVLA: 

Determine which quad line this line is connected to 

MOV LMXLN(Rl), R5 ; Get line # within quad line unit (0-3) 
Compute address of registers for this line 



2*: 



MOVB QPFADR<R5),R5 
ADD QPCSR, R5 



;0et offset based on DUART and channel 
iAdd base CSR address for module 



006254 
006257 



000 
060 



020 



Finished 

RETURN 
Table of register address offsets based on line number 
040 QPFADR: .BYTE 0, 20, 40» 60 

. EVEN 



TSXPRO - 
GPCVLX - 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

51 
52 
53 
54 
55 
56 
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— Get address and configuration info 



006260 



006260 016103 OOOOOOG 



006264 116305 006314 
006270 063705 000066 



006274 042703 177776 

006300 105737 000110' 

006304 001402 

006306 062703 000002 



006312 000207 



. SBTTL GPCVLX — Get address and configuration info 

GPCVLX is called to convert a TSX-Plus line number for a line connected 
to the quad serial line unit into two items of information: 
(1) the address of the base of the registers for the DUART to which 
the line is connected* (2) an index value in the range to 3 which 
indicates which channel of the DUART the line is connected to and 
which configuration <2/2 or 4/0) the serial line unit is in. 

Inputs: 
Rl = TSX-Plus line index number. 

Outputs: 
R5 = Base address of registers for DUART. 
R3 = Channel and configuration index value as follows: 

Line Config Value 

O 

1 



(RO is preserved) 
GPCVLX: 

Determine which quad line this line is connected to 

MOV LMXLN<R1),R3 ; Get line # within quad line unit (0-3) 
Get the DUART base register address 



0/2 


4/0 


1/3 


4/0 


0/2 


2/2 


1/3 


2/2 



2*: MOVB QPFDAD<R3),R5 
ADD QPCSR, R5 



> Get offset based on DUART or 1 
;Add CSR address of base of module 



BIC 


# A C<1>, R3 


TSTB 


QPMODM 


BEG 


9* 


ADD 


#2, R3 



006314 
006317 



000 
040 



000 



Get index value based on line # and configuration 

;Get for lines 0&2, 1 for lines 1&3 

> Is this a 2/2 configuration? 

; Br if not 

; Set index based on config 

Finished 

9*: RETURN 

Table of address offsets to base registers for DUARTs based on line # 

040 QPFDAD: . BYTE 0, 0, 40, 40 



006320 



. EVEN 

. ENDC i NE, QPASM 

Size of TSXPRO 

PROSIZ = . -PROBAS 



iEnd of quad line unit code 



; Size of TSXPRO 



€ 



i 

i 
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57 000001 . END 

Frror? detected: 

#•*# Assembler statistics 

Work file reads: 

Work file writes: 

Size of work file: 8488 Words < 34 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:49.46 

, LP: TSXPRO=DK: TSXPRO/C/N: SYM 
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Cross reference table (CREF V05. 05) 

*DEAD 12-23 59-22 

*DHCDO 2-30 

*HISTP 2-36 5-13 6-12 12-23 53-13 54-13 

*OITIM 2-20 7-28 12-19 33-52 41-30 50-27 51-29 52-13 52-19 53-30 54-30 62-47 

SPHONE 12-21 47-73 60-34 

*SXOFF 2-37 5- IS 12-26 53-23 

*SXON 2-38 6-17 12-26 54-23 

*VDCSR 14-16# 24-58 24-58* 32-35 32-39* 33-21* 

*XCHAR 2-20 7-27 7-41 12-19 33-51 33-59 41-20 41-29 42-7 50-15 50-26 51-16 

51-28 52-15 52-17 53-17 53-29 54-17 54-29 61-21 62-46 62-54 

CDCLOK 2-14 4-69# 12-25 47-19* 

CDGDSS 2-14 4-83# 10-19 12-21 40-21* 47-22* 59-44* 

CDIFLG 2-12 4-155# 

CDIRTN 2-12 4-140# 

CDOFLG 2-12 4-1 56# 

CDORTN 2-12 4-139# 

I CDSBRK 2-14 4-107# 12-27 40-22* 47-24* 59-46* 

CDSDSS 2-14 4-95# 10-21 12-21 47-23* 59-45* 

CDSSPD 2-13 4-1 19# 9-15 12-27 40-23* 47-25* 59-47* 

CDSTOP 2-11 4-34# 

) M CDSTR2 2-15 4-22# 



« 



< 



CDSTRT 2-11 4-13# 5-23 6-22 12-21 30-19* 40-20* 47-18* 59-43* 
CDSXOF 2-15 4-46# 12-24 47-20* 



' - CDSXON 2-15 4-58# 12-24 47-21* 

| * CDX*PC 12-22 47-14 47-18* 47-19* 47-20* 47-21* 47-22* 47-23* 47-24* 47-25* 

CDX*PI 12-23 30-15 30-19* 

M CDX*PP 12-22 40-15 40-20* 40-21* 40-22* 40-23* 

t CDX*QP 12-29 59-43* 59-44* 59-45* 59-46* 59-47* 60-13 



CORUSR 12-18 35-21 

CP*7BR 19-63# 58-50 

CPS7BT 19-83# 57-14 58-49 

CP*BBR 19-64# 58-47 

CP*8BT 19-84# 57-17 58-46 

CP$ACM 19-21# 

CP*ARP 19-20# 

CP*AS 19-98# 

CP*ASM 19-59# 

CP*AW3 19-65# 47-46 58-42 

CP*AW4 19-74# 47-44 58-30 

CP*AW5 19-85# 47-48 57-14 58-43 

CP$BR 19-94# 49-20 

CP*BRP 19-107# 

CP*BRR 19-13# 58-25* 

CP*BW1 19-1 11# 

CP*BW2 19-115* 

CP*CAR 19-9# 47-36 47-70* 47-71* 48-26* 48-31* 48-36* 49-18* 49-19 49-23* 49-31* 50-16* 

50-17* 57-28* 57-29* 58-29 

CP*CBR 19-10# 47-59 48-7* 48-8 

CP*CCS 19-79# 

CP*CD 19-139# 55-22 

CP*CMM 19-73# 

CP*CR 19-43# 47-37 47-60 

CP*CRC 19-22# 

CP*CS 19-131# 

CP$CTS 19-140# 
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QPRCSB 


20-29# 












QPRIMR 


20-28# 


59-61* 


59-62* 








QPRIP 


20-20# 


65-35 


65-41 








QPRISR 


20-16# 


62-35 


62-59 








QPRMRA 


20-13# 


60-46* 


60-47* 


63- 


-50* 




QPRMRB 


20-17# 












QPRMSR 


20-12# 


24-91* 


59-30 


59- 


-33* 


62-21* 


QPROPC 


20-31 # 


59-51* 


59-52* 








QPRROP 


20-33# 


59-66* 


59-67* 


66- 


-43* 




QPRRRA 


20-1 5# 


62-65 










QPRRRB 


20~19# 












QPRSOP 


20-32# 


66-37* 










QPRSRA 


20-14# 


62-64 










QPRSRB 


20-18# 












QPRTRA 


20-26# 


62-48* 










QPRTRB 


20-30# 












QPRUOF 


20-38# 


59-52* 


59-57* 


59- 


62* 


59-67* 


QPSBRK 


59-46 


64-10# 










QPSDSS 


59-45 


66-10# 










QPSLOT 


14-61# 


59-39* 


59-72 








QPSPD 


63-2B 


63-62# 










QPSSPD 


59-47 


63-10# 










QPSTRT 


59-43 


61-9# 










QPVEC 


14-47# 


24-86 


59-36* 


60- 


26 




R50PI 


14-43# 













62-20 62-98 67-23 68-35 



66-44 



61-27* 62-55* 63-49* 64-26* 64-31* 



62-99* 



62-92 
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RBERR 12-20 43-25 43-28 43-31 43-35 62-72 62-75 62-78 

RCVPAR 12-20 43-25 62-72 

REENAB 14-17# 32-40* 33-20* 33-61* 

RLINE 2-27 

RPRCSR 12-29 21-30* 

RPRVEC 12-29 21-29* 

RSR 12-21 25-34 

RT*BAS 12-26 24-14 

S4800 12-28 40-44 

S9600 12-24 40-41 47-54 

SETDSS 2-16 10-9# 

SETSPD 2-14 9-9# 

SILFET 2-16 4-135# 

SNDFRE 4-141 # 

SROMMR 12-30 22-18* 22-37* 

SR3MMR 12-30 22-19* 

SS*BNK 1 5-9# 

SSSBRK 15-1 1# 21-44 21-46 

SS*MON 15-10# 

TBR 2-28 7-31* 

TIOVEC 2-16 4-132# 

TRINT 2-28 7-42 7-51 

TRNSTR 2-16 4-137# 

TRRDY 2-28 7-29 

TSR 2-28 7-29 7-42* 7-51* 

TSTIO 2-11 4-12# 

TSXPRO 12-4# 12-12 

TTINPT 2-13 4-134# 12-20 37-46 43-41 49-39 62-82 

TTRSAV 2-13 4-136# 12-27 43-9 49-12 62-14 

VDFLAG 14-19# 32-34* 33-60* 

VHCLOK 2-40 

VHGDSS 2-32 

VHSBRK 2-22 

VHSDSS 2-33 

VHSSPD 2-22 

VHSTOP 2-39 

VHSTRT 2-30 

VHXOFF 2-31 

VHXON 2-31 

VIDCSR 12-29 21-24* 

VIDSLT 14-44# 21-17* 21-21 

VIDTBL 14-52# 21-13 

VIDVEC 14-45# 21-20* 23-13 24-75 

VP*CME 17-13# 

VP*COO 17-12# 

VP*DOI 17-15# 32-35 32-39 33-21 

VP*EFI 17-10# 

VP*EOF 17-1 1# 

VP*IMD 17-8# 

VP*LMD 17-7# 

VP*OEF 17-9# 

VP*OMP 17-14# 

VP*TRD 17-16# 

VPAR5 12-25 22-23 24-19 24-23 24-34 24-39 24-53 

VPAR6 12-25 24-40 

VSWPSL 12-25 

VT100 12-27 30-25 



i 
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DISABL 3-6# 13-5# 22-15 32-19 32-27 34-23 46-29 51-12 53-9 54-9 57-27 58-51 

61-20 63-43 
ENABL 3-12# 13-1 1# 22-38 32-45 34-25 46-38 51-34 53-35 54-35 57-30 58-56 61-31 

63-51 
OCALL 3-18# 
TTMAP 3-4S# 
TTMAPX 3-39# 
UNMAP 3-53# 
UNMAPX 3-4 5# 



